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FOREWORD 


Now that you've mastered simple BASIC on your 
computer, what do you do next? 


The answer Lies in this book. Tim Hartnell has 
covered the areas of computer programming which 
I think are most Likely to be of interest’ to 
you, including moving graphics, the use of 
MODE(1), music and PEEK and POKE. 


As well as the 'lessons', there are fifteen or 
so games which you're sure to enjoy running. 
The appendix contains a useful glossary of 
computer words, and a very clear explanation of 
how computers in general - and yours in 
particular — work. 


Now that you have simple programming under 
control, it is time to tackle some more 
difficult, but highly rewarding, areas. This 
book gives you the key. 


Jeremy Ruston, 
1983 


*Jeremy Ruston is the author of a number 
Of popular computer books, including 
PASCAL FOR HUMAN BEINGS (Interface 
PubLications, 1982), THE BOOK OF 
LISTINGS (co-author Tim Hartnell, BBC 
Publications), THE BBC MICRO REVEALED 
(Interface Publications, 1982) and THE 
BBC MICRO COMPENDIUM [Interface 
Publications, 1982). He contributes 
extensively to the computer press, 
including POPULAR COMPUTING WEEKLY, 
PERSONAL COMPUTING TODAY and ZX COMPUTING, 
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CHAPTER ONE — 
CREATING PROGRAMS 


Many books on programming suggest you start by 
drawing up a 'flowchart' — a combination of 
circles, diamonds and slanting rectangles, 
which sets out the path and operations’ the 
computer will follow to execute a program. In 
theory, this is fine, but in many cases the 
time and trouble involved may not be worth it. 


It is, however, essential that you know exactly 
what you want the computer to do before you 
start creating a new program, even if you're 
not quite sure how you're going to get the 
computer to carry out the task. 


Sometimes a rough sort of flowchart — perhaps 
just a list of the main steps the computer will 
take, Linked by Little arrows and Loops - will 
help to clarify your thinking. It is also a 
good way to spot potential problems, Like the 
danger of setting up infinite loops, or of not 
specifying the nature of the computer's 
decisions exactly. 


I would like to introduce you to a school of 
programming thought called 'Structured 
Programming'. Structured programming says that 
programs need to be designed from the _ ‘'top 
down'. That is, you need to spell out in words, 
Long before you start actual programming, 
exactly what you want the computer to do, and 
in what order. 


The first program in the book, TIC TAC TOE, was 
written to demonstrate structured programming 


in action. If you look at the beginning of the 
Listing, Lines 130 to 170, you'll see what is - 
in effect - the whole program in a series of 
subroutine calls. 


10 REM TIC TAC TOE 
20 CLS 


90 DIM AC9) 

95 FOR T=! TO 9:A(T)=0:S0OUND T,1:NEXT T 

100 T=RND (0) 

103 IF 13.7 THEN PRINT "I'LL HAVE THE FIRST MOVE" 
110 IF Té=.7 THEN PRINT "YOU HAVE THE FIRST MOVE" 
113 FOR Z=1 TO 10003NEXT:CLS 

120 IF 13.7 THEN 160 

125 IF INKEY$<>"" THEN 125 

130 GOSUB 750 

140 GOSUB 480 

150 GOSUB 470 

160 6GOSUB 750 

170 GOSUB 480 

180 IF A(S)=0 THEN A(S)=1:G0T0 130 


What do I mean by this claim, the ‘whole 
program'? When I sat down to write this 
program, I first Listed the steps the computer 
would follow, Like this: 


- decide who goes first 

—- print out the board 

- check to see if anyone has won 

—- let the human move 

—- print out the board 

- check to see if anyone has won 

- let the computer move 

—- go to the second item in the List 
and cycle through again and again 
until somebody wins 
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Once I had this List written, I changed most of 
the instructions into subroutine calls. Look 
again at the Lines I mentioned. By following 
them through in the program, you'll see they 
correspond fairly closely to my initial List: 


10 ~ 115: Decide who will have first move 


120: If the computer is having first move, jump 
to Line 160, which calls up the board print 
subroutine 


130: If not, this Line goes to the subroutine 
from Line 750 which prints up the board 


140: Sends action to the subroutine from Line 
480 which performs the ‘win check'! 


150: Calls the subroutine from Line 670 which 
accepts the player's move 


160: Calls the board print subroutine 
170: Calls the win check subroutine 


180: Moves into the centre square if it's 
available, then goes back to 130 to cycle 
through again 


You'll see, in the next section, that a number 
of Lines end with GOTO 130. These are triggered 
when the computer has moved, and the’ program 
then goes back to 130 to cycle again. Apart 
from the ‘who will go first?! routine which was 
added Later, the program proper is really held 
within those few Lines 130 to 170. These were 
written as subroutine calls, and each 
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subroutine Labelled, long before I had actually 
written the relevant subroutines. 


This meant that I could proceed step by step, 
debugging an isolated subroutine, before going 
on to the next. This is the real advantage of 
structured programming. Because the program 
consists of a number of discrete modules, each 
charged with performing a_ specific task, 
tracking down bugs is simplified, the flow of 
action through the program is relatively 
transparent, and subsequent modification of the 
program is easy. 


190 REM TO COMPLETE ROW/BLOCK 
200 D=1 

210 B= 

220 IF B=1 THEN X=1:¥=2:2= 
200 IF B=2 THEN i=] 
240 IF B=3 THEN oo 
2590 IF B=4 THEN X=3: 
260 C=i 

270 IF A(X)=D AND ACY)=D AND A(Z)=0 THEN A(Z)=1:60T0 130 
280 IF A(X)=D AND A(¥)=0 AND A(Z)=D THEN A{Y)=1:G0TO 130 
270 IF ACX)=0 AND ACY)=D AND A(Z)=D THEN A(X)=1:60T0 130 
500 IF B=l THEN X=X+3:Y=¥+3: Z=Z+3 

S10 IF B=2 THEN X=X+1:Y=¥+t1:72=Z+1 

S20 TF (<3 THEN C=C+1:G0T0 270 

330 IF Bé4 THEN B=B+1:G0TO 230 

340 IF D&2 THEN D=D+1:60T0 210 

S30 REN MOVE AT RANDOM 

560 B=] 

370 D=INT(RND (0) 99) +1 

380 IF A(Ci=0 THEN A(C)=1:G0TO 130 

590 B=Btt 

400 IF Bé2l THEN 370 

410 B=0 


420 B=B+1 

430 IF A(B)=0 THEN A(B)=1:G0T0 130 
440 IF B¢9 THEN 420 

450 GOSUB 750 

460 PRINT:PRINT"IT*S A DRAW" 

470 GOTO 650 


490 REM WIN CHECK 
de FOR oe 170 4 
=]: - 
uL0 IF p= 2 THEN X=1: 
520 IF B=3 THEN ols 
IF B=4 THEN X=3: 


30 
40 FOR C=1 TO 3 

SO IF ACXI=A(Y) AND ACY)=A(Z) AND A(X)<>0 THEN 610 
60 IF Bel THEN X=X+3: ¥=¥+3:2=2+5 

70 IF Be2 THEN X=X+1s¥=¥+1:Z=Z+1 

Q NEXT C 

Q NEXT B 

G RETURN 


a 4 co 


610 REN THE WINNER! 
620 PRINT 
630 IF A(X)={ THEN PRINT "I'M THE WINNER!" 
640 IF A(K)=2 THEN PRINT "YOU'RE THE WINNER!" 
650 FOR O=1 TO 1000:NEXT 0 
440 GOTO 95 
670 REN PLAYER NOVE 
575 IF INKEY$<3"" THEN 675 
680 PRINT 2 450,"ENTER YOUR HOVE" 
b90 AS=INKEY$ 
700 IF A$<"1" OR A$}"9" THEN 690 
710 B=VAL(AS) 
720 IF A(B)<30 THEN 690 
25 PRINT 2 450," 
730 A(B)=? 
740 RETURN 


750 REN PRINTOUT 
740 PRINT 2 44, 

780 PRINT "123": 

790 FLA =0 

800 FOR B=1 TO 9 

910 IF A(B)=0 THEN FLA =! 

820 IF A(B)=0 THEN PRINT * - *: 

930 IF A(B)=1 THEN PRINT " O "s:SOUND 1,1 

B40 IF A(B)=2 THEN PRINT * X "s:SOUND 15,1 
950 IF B=3 THEN PRINT:PRINT:PRINT "456 "3 
B40 IF B=6 THEN PRINT:PRINT:PRINT "789 
870 NEXT B 

BB0 IF FLA =0 THEN 460 

890 RETURN 


Here's the program in action: 


cs 


<j 


PJ 


om 
t 


() 


C) 


Pan 


A 


na Jj 


C) 


Sr oss 


Ss 


mr 


sul 


3 


e 
vd 


c3 


a] 


3 


cay 
al 


I)! 


é. 
tx) 


g 


& 


o 


ner ae 


“FA 


Xx 


> 


7 
A 


0 


LA 


“J 


“3 
othe, ~ 
oa 


*. 
ey oes eae! 


I'M THE WINNER! 


I urge you to follow a sequence of steps’ such 
as those outlined above when you're writing a 
program from scratch. It may not be necessary 
to do so if you're working on a fairly simple 
program, or are adapting from a magazine or 
book. Even then, if you're working directly on 
the computer, it is handy to keep a notebook by 
you to record such things as that you've 
assigned A$ to the player's name. 


GETTING THINGS ON TAPE 


If you're writing a program directly on the 
keyboard, and you want to add a_ subroutine 
which will eventually be at the end of program, 
give it a very high Line number. It can easily 
be renumbered Later if you Like. This is’ far 
better than having to jump over a_ subroutine, 
as the program expands, with an ugly GOTO. 


You should resist the temptation to put all 
your programs on a single cassette, one program 
after another. The frustration you'll 
experience searching through the tape —- even if 
you've identified each program with a_ voice 
Label -— to find a particular program, is just 
not worth the trouble. 


Go to your computer store, and get a set of C- 
12 or C-20 cassettes. Put just one program on 
each cassette, with two or three copies of each 
one in case your recording gets damaged, 
accidentally erased or won't load. 


Write the name of the program on the cassette 
and on the cardboard insert. You'Ll find this 
makes it very easy to locate the program you 
want. As well, as your Library of programs 
grows, it will give you quite a feeling of 
accomplishment to see all those programs ranked 
side by side. It will impress your family and 
friends as well, who will believe after 
visiting you and playing with your computer 
that you're some kind of natural computer 
genius (which you probably are). 
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CHAPTER TWO — 
MOVING GRAPHICS 


There is Little doubt that moving graphics 
games, such as the ones you see in arcades, are 
among the most exciting things you can do with 
your computer. Although the programs we create 
in this section of the book will be in no way 
as sophisticated as arcade games, the 
techniques given will allow you to write moving 
graphics games of your own, and will give you 
an insight into arcade-standard programs. 


THE SECRET OF ANIMATION 


It is simple to make something appear to move 
on the computer screen. You put a shape - such 
as the Letter A —- on the screen in a particular 
spot, and hold it there for a moment or two. 
Then, you print a blank space where the A was, 
and at the same time, reprint the A aé=e short 
distance away from its original position. 


This process is repeated over and over again, 
and it creates the impression that the object 
is moving. That's all there is to it. Put one 
moving object under your control, and another 
one under the computer's control, and you have 
the raw ingredients of a game. Let's see how 
it works in practice. 


USING PRINT @ 


As you know, the computer's screen is 392 
Characters across, and 16 Lines down. The PRINT 
@ command works’ by counting the very first 
position on the screen (the one in the top, 
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Left hand corner) as number O. It counts across 
the Line, and then gets to position 31 at the 
end of the Line. Position 32 is the first one 
on the second Line. This goes right through the 
screen with the final position (in the bottom, 
right hand corner) as position number 511. 


We'LL start by placing something on the screen, 
Enter this brief program and run it. When you 
see the question mark appear, enter two 
numbers separated by a comma. The first is the 
number of Lines down you want the object’ to 
appear, and the second is the number of spaces 
you want the object to be across the _ screen. 
The first number must be between O and 15, ~= and 
the second number between O and 31. 


Enter the program, run it for a while,’ then 
return to the book: 


10 REM PRINT @ DENO 

20 CLS 

30 INPUT A,B 

40 PRINT 2 (32SA+B), "A" 
50 PRINT @ 0,3 

4) GOTO 30 


Note the use of the formula in Line 40, which 
changes the numbers entered as down and across 
co-ordinates into a single number which the 
PRINT @ command can use (Later on we'Ll use a 
similar formula for PEEK and POKE, but we'll 
stay with PRINT @ for the time being): 


PRINT @ (32*A + B) 


You'll find you're using this formula, or a 
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similar one to it, time and time again in 
programs. 


We'LL now use PRINT @, and our formula, to 
create a bouncing ball program. NEW the 
computer, and enter the following program, then 
return to the book for a discussion on it. 
You'Ll find that the techniques used ffor 
animating this ball will be used in just about 
every moving graphics game you write. So, it is 
worth taking the trouble to understand exactly 
how it works, so you can apply the techniques 
to your own programs. 


{0 REM BOUNCING BALL 1 
15 CLS 


20 A=6;B=11 

30 Y=1:X=] 

40) EA=A:ER=R 

SO PRINT @ (32aB + A,"0" 
70 B=B+x 

80 A=A+Y 

90 IF A<2 THEN Y=-Y 
100 TF A730 THEN Y=-¥ 
110 IF Béé THEN X=-X 
120 IF B}14 THEN X=-X 
130 GOT0 40 


When you run this, you'Ll see the ball appear 
on the screen, bouncing from the sides, and 
Leaving a trail of itself behind. I 
deliberately did not erase the 'old' ball in 
this program, so you could see that it was just 
a series of the same character being printed on 
the screen. 
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Now, add this Line, and see what happens: 
Zu PRINT @ (328EB + EA),”." 


When you run the program, you'll see something 
Like this on the screen: 


As you can see, it leaves a trail of dots 
showing where the ball has been. Remove’ the 
dot from between the quote marks in Line 125, 
and run the program again, to see a_ true 
bouncing ball. 


The program gives a very good impression of 
a moving object. This program, as I_ said 
earlier, demonstrates a number of key’ things 
about moving graphics programs, so we'll go 
through this program line by line, explaining 
what each Line is doing. 
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15 - clears the screen 


20 — sets the start position of the ball, at 7 
across and 12 down 


30 - sets X and Y which control the change in 
position of the ball between each movement 


40 - sets two variables used to erase the old 
position. These are called EA (for ‘erase A') 
and EB (l'erase B). You should always use 
variable names which suggest the function’ the 
variable is performing, as it makes it much 
simpler Later on when you're going through a 
program. Note (and this is important) EA and EB 
are set equal to A and B just before the ball 
is printed at 32*B + A (Line 60) and before A 
and B are modified (Lines 70 and 80) 


60 —- this prints the ball on the screen 

70 - B (the down position) is changed 

80 - A (the across position) is changed 

90 -— this checks that the A position is not too 
far to the Left, and if it is, changes Y to 
minus Y (causes the ball, next time it comes to 
this Line, to bounce off the left hand side of 
the screen) 

100 — does the same for the right hand side 

110 — checks the up/down position, and if the 


ball is too close to the top of the screen, 
changes X to minus X which, as you'd guess, 
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causes the baLl to bounce down from the top of 
the screen 


120 - does the same for the bottom of the 
screen 


125 - prints a blank on the ‘old’ position of 
the ball (that is, the position designated by A 
and B before they were modified by lines 70 and 
BD) 


130 - sends action back to Line 40, where EA 
and EB are set equal to the ball's new 
position, before it is reprinted in the new 
position with Line 60 


Although this explanation is fairly long (and 
much longer than the program it is explaining) 
it is worth reading it through carefully. Once 
you understand it, you'll be well on the way to 
writing your own programs. 


Now, modify the program so it is as follows. In 
this version, there is a little object at the 
bottom of the screen which is your ‘bat! and 
you have to get the ball to bounce off it _ to 
keep the ball moving. You use the 'Z' (to move 
left) and the 'M' (to move right) keys to 
control the bat at the bottom. 


10 REM BOUNCING BALL 11 
15 CLS 


20 A=6:B=l1:F=11 

30 Y=l: f=! 

40 EA=A:EB=B 

JO PRINT @ (477+F)," "sCHRS(i3i)3" * 
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60 PRINT @ (32%B + A),"0" 
70 B=B+X 
80 A=AtY 
82 AS=INKEY$ 
85 IF Ag="Z" AND F>3 THEN F=F-2 
BS IF A$="M" AND F<29 THEN F=F+2 
90 IF A<2 THEN Y=-¥ 
100 IF A#30 THEN Y=-Y 
110 IF B¢2? THEN X=-X 
120 IF B3i3 AND ABS(F-A)<3 THEN X=-X 
121 IF B=16 THEN END 
co PRINT @ (328EB + EA)," " 
130 GOTO 40 


Now, this is not a particularly satisfying game 
(it probably doesn't even deserve the title 
'game') but it shows some extra ingredients 
you'll be using in moving graphics games. In 
this program outside interaction is brought 
into play for the first time (you moving the 
bat) and the computer responds to this (keeping 
the game underway if the bat is in’ the right 
position). 


Here's what the extra Lines do: 


20 - F is the position of the bat across the 
screen 


50 - this prints the 'bat' (and you can use the 
graphics character direct from the Y key 
instead of CHR$(131) and note there must be two 
Spaces within the quote marks on either side, 
to 'unprint' the bat as it moves) 


82 - this reads the keyboard, with INKEY$, and 
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sets the result of this reading equal to A$ 


85 - if A$ equals "Z" (that is, if you are 
pressing the "Z" key) and F is greater than 3, 
the value of F is reduced by 2 


86 - if A% equals "M" and F is Less than 29, 
then the value of F is increased by 2 


(The effect of these two Lines, as I'm sure you 
Can see, is to move the bat in accord with 
your wishes.) 


120 -— if B is greater than 13 (which means’ the 
ball is near the bottom of the screen) the 
position of the bat is checked, and if it is 
close to the ball, a bounce occurs and the game 
continues 


121 - if the ball has missed the bat, this Line 
halts the program 


This is not, as we said, avery inspiring or 
Challenging game, but with a few minor changes 
can be given a bit of value. Modify it so it 
reads as follows, and play with it a bit: 


10 REM BOUNCING BALL 111 
12 REM * SQUASH’ 


15 CLS 

17 PRINT 2 22 
18 FOR J = 25 
19 PRINT 2 J, 
20 A=G:Bel1:F=!l 
25 SC=I 

30 Y=t:X= 


v ae ee ow oe wr oe oo @ os 6 © 8 we ow om ow 4 OO oo oe ee 8 ow = = Hn 


4, 
6 TO 448 STEP 32 
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40 EA=A:EB=8 

00 PRINT @ (477+F)," "SCHRS(I31)3" ° 
60 PRINT @ (328B + A), "E" 

70 B=B+X 

80 A=A+Y¥ 

82 AS=INKEY$ 

BS IF A$="Z° AND FO8 THEN F=F-2 

B46 IF AS="N" AND F<24 THEN F=F+2 

90 IF Ac? THEN Y=-Y 

100 IF A223 THEN Y=-Y 

110 IF B¢9 THEN X=-X 

120 TF B=15 AND ABS(F-A)<2 THEN X=-X 
121 IF B=16 THEN END 

122 IF B=i5 THEN SC=SC+367:PRINT @ 68, "SCORE IS ";SC 
125 PRINT @ (329EB + EA)," ” 

130 GOTO 40 


Again you'Ll have to use the "Z" and "M" keys, 
but this time you have a much smaller’ 'playing 
field' and there is a bit of a challenge to the 
game. You might Like to spend some time 
playing with this program, modifying it as you 
see fit, before returning to the book to 
discuss moving an object up and down, as well 
as to the right and left, on the screen. 


TRAPPER 


We now have a program which is difficult (and 
very enjoyable) to play, as the 'X' is stalked 
by the prehistoric '@', 


In this program — TRAPPER —- you are the "X" and 
the computer controls the "@". You use the 
following keys to move yourself around the 
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screen, trying to stay out of the computer's 


clutches for as Long as possible: 


=N > 


—- to move up 

— to move down 

- to move left (see arrow above this key) 
—- to move right (see arrow) 


10 REM TRAPPER 
15 CLS: T=0 
20 BA=5:BD=5 
30 THE15:TV=15 
40 EA=BA:ED=BD 
50 EH=TH:EV=TV 
b0 PRINT 9 (324ED4EA)," * 
70 PRINT 2 (328TV4TH)," " 
80 AS=INKEY$ 
90 IF AS="A" AND BD}2 THEN BD=BD-1 
100 IF A$="Z" AND BD<14 THEN BD=BD+1 
110 IF AS="," AND BAC30 THEN BA=BAtI 
120 IF A$="" AND BA}? THEN BA=BA-1 
130 PRINT 9 (32#BD+BA), "x" 
35 IF RND(O)>.5 THEN 150 
140 IF BD}TV THEN TV=TV+1 
145 IF RND(O)>.5 THEN 160 
i50 IF BD<TV THEN TV=TV-t 
55 IF RND(O)}.5 THEN 170 
160 IF BACTH THEN TH=TH-1 
170 IF BASTH THEN TH=TH#! 
180 PRINT 9 (328TV+TH),"a" 
195 T=T+ 
190 PRINT 2 0,"TINE ELAPSED"T 
210 IF BD=TV AND BA=TH THEN SOUND RND{O) #20, 1:60T0 210 
220 GOTO 40 
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There iS no need to go through this' program 
Line by Line, as I'm sure by now you've got a 
pretty good idea of what effect the various 
parts of the program have. The main difference 
between TRAPPER and SQUASH is that we are now 
moving in two dimensions, and the thing which 
is trying to trap us can 'sense' (using Lines 
135 to 170) just where we are. The Lines 135, 
145 and 155 are just to give you a chance. Take 
them out, and you'Ll be dead within 10 moves, 
every single time. 


This program points up one of the disadvantages 
of working in BASIC, especially with PRINT @ — 
it is fairly slow, and everything we add to a 
program slows it down further. Fortunately, 
there iS another way to move things on the 
screen, and we'LL turn to that now. 


PEEK and POKE 


Although PEEK and POKE seem to inspire fear 
into programmers’ when they first come across 
them, there is no need to worry. They can be 
used in almost exactly the same way as PRINT @ 
has been used. 


There are, however, two advantages of using 
PEEK and POKE over using PRINT @: 


- POKE is faster than PRINT @ 

—- PEEK can be used to find out what is on 
the screen in a particular position. This is 
ideal for discovering whether or not an alien 
has been shot, or the plane you are flying has 
hit the side of a mountain 
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When you POKE something to the screen, you put 
it on the screen. When you PEEK, you are 
Looking to see what is on the screen at the 
particular position. That's just about all you 
have to remember. 


If you have two co-ordinates A (for across) and 
D, you PRINT @ them, as explained before, using 
the formula 32*D + A. To POKE something into 
place, you use a line Like: 


POKE 28672 + 32*D + A, X 


We generally use 28672, the location of the top 
Left hand corner of the screen, or 28736, the 
position two lines below it. The X is the 
character number, and this is the character 
which will appear when we POKE directly to the 
screen. 


You'LL remember that we used a space ("") jin 
PRINT @ to wipe something out. The equivalent 
in this case is the number 32. So... 

POKE 28672 + 32*D + A, 32 

.»-1S the equivalent of ... 


PRINT @ (32*D + AJ," " 


If you want to find our what is at a particular 
address, you use PEEK as follows: 


IF PEEK (28672 + 32*D + A) = .... THEN .... 


Now, PEEK and POKE are simpler to use than they 


22 


may appear at first sight. I suggest you enter 
the following programs, all of which use the 
two commands, and follow through the’ Listings 
carefully. This will allow you to Learn about 
the use of the two words more quickly than any 
other way. 


MESOZOIC ATTACK 


The Mesozoic Era was when dinosaurs roamed the 
earth. This program is a PEEK/POKE version of 
TRAPPED (although only POKE is used, to break 
you into the new words gradually). Note that 
although up and down are the same keys ("A" and 
"2") right and left are "," (Left) and "," 
(right). It is easy to remember these, as the 
greater than and less than symbols point in the 
relevant directions. 


10 REM MESOZOIC ATTACK 

iS H5=) 

20 CLS 

0 5C=0 

4 HA=1:HD=1:D=15:A=30 

00 EA=HA: ED=HD 

60 IF INKEY$="A" THEN HA=HA-1 
70 IF INKEY$="2" THEN HA=HA+! 
BO IF INKEY$="." THEN HD=HD+! 
90 IF INKEY$="," THEN HD=HD-1 
9{ IF HAL THEN HA=1 

92 IF HA715 THEN HA=15 

G3 IF HD<) THEN HD=1 

94 TF HD?31 THEN HD=51 

$3 ER=5B 

iG4 SB=298672 + 32aD+A 

{10 TF SR=H THEN GOTO 1006 
115 POKE EB,32 


‘sme! 


te» 
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120 POKE SB, (36+INT(RND(0) $3) ) 
130 H=28472 + 32¢HA+HD 

140 IF SB=H THEN GOTO 1000 
145 POKE EH, 32 

150 POKE H,88:EH=H 

160 IF DCHA THEN D=D+! 

165 IF RND(O)3.3 THEN 180 
170 IF DDHA THEN D=D-1 

175 IF RND(O)}.3 THEN 190 
180 IF ACHD THEN A=A+! 

190 IF ADHD THEN A=A-1 

200 SC=SC+1 

210 PRINT 9 20,"TIME>SC 
240 IF D<1 THEN D=1 

250 IF D915 THEN D=15 

260 IF ACL THEN A=I 

270 IF AY31 THEN A=31 

275 IF SB=H THEN GOTO 1000 
280 GOTO 50 

1000 POKE SB,32:POKE H, 32 
1001 POKE EB,32sPOKE EH, 32 
1002 FOR J=1 T0 19 

1003 POKE SB, (BO+INT(RND(0)$20)) 


1010 SOUND RND(20)+1,1 

1020 NEXT J 

1030 PRINT @ 226, "YOU SURVIVED FOR"; SC 
1035 IF SC2HS THEN HS=5C 

1040 PRINT @ 258, "BEST SO FAR 15°3HS 
1050 FOR T= 1 TO SQO:NEXT T 

1060 GOTO 20 
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V-WING SPACE BATTLE 


In this program, you pilot your Little V-wing 
Space craft around the screen, trying to run 
over the numbers which appear on it. Each 
number will appear for a Limited amount of 
time, and if you run over it, a score related 
to that number is added to your growing tally. 


PEEK is used here for the first time, in Line 
190, where it Looks at the position where your 
space craft is about to be POKEd, and if it 
finds a number there, increments your score. 


10 REM V-WING SPACE BATTLE 
20 CLS 


30 SC=0 

100 FOR Z= 1 TO 20 

110 SL=28736:N=22:D=-32 

120 POKE 28715+INT(RND (0) £448). INT(RND(O) 89) 449 
130 W=SL 

140 A$=INKEYS 

150 IF Ag="," THEN SLSSU#13H=42 

140 IF AG="4" THEN SL=SL-1:4=60 

{70 IF A$="— AND SL}28736 THEN SL=SL-32: 
180 IfA$=""" AND SL(29151 THEN SL=SL+32: 
190 D=PEEK{SL) 

200 IF Q548 AND O<58 THEN SC=SC+0:60T0 980 

205 POKE W,32 

210 POKE SLM 

220 IF RND(0)<.99 THEN 130 

230 COLOR, 1:FOR T=1T020:NEXT T:COLOR, 0 

980 CLS:PRINT 2 0,"SCORE ";SCs" ";20-2;" SHIPS LEFT" 
982 COLOR, INT(RND (0) $2) 

985 SOUND RND(O)#25+1, 1:IF RND(O)}.6 THEN 985 

990 NEXT 7 


H=1 
H=22 
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1000 PRINT 2 0,"THE BATTLE IS OVER", *YOU SCORED ";SC 
1100 COLOR, INT(RND(O)%2) 
1120 GOTO 1100 


BREAKOUT 


As you can see, the programs are getting more 
involved. BREAKOUT produces a screen picture 
Like this: 


“FE HE EE HE He He FE EE EE AE ER EH a FB a a 


X K K KX KR K KX X¥ X X KX X K XK KX 
Kp X «2 K wu KX aw KR «@ KR vw Aw K o 


THE GAME IS OVER 


YOU SCORED Gite 


SCORE G24 BALLGS oO 


You have to knock as many bricks [the X's) out 
of the way as you can, trying to get through to 
the row of hash symbols near the top of the 
screen. PEEK is used (see Lines 140 through to 
146) to check whether you've hit a brick (140, 
144 and 146) or the hash symbols (145). Your 
bat at the bottom of the screen is POKEd into 
position by Lines 225 and 230 (with the two 
POKE 82's clearing each side of the bat). 


26 


10 REM BREAKOUT 
15 CLS 


20 PRINT HAHAHAHA 
25 PRINT "XX MAAK RAK K AERA K! 

JO PRINT 2X. X.N.X.N XK LY. 

40 PRINT" X.X.X.N.N. KEE 

SO PRINT "XXX XYXXXYKXKKLKY? 

b0 CX=10:REM NO. OF BALLS 

70 BATINT(RND(O) #6) +6:REM START OF BALL ACROSS 

90 BD=8: REM START OF BALL DOWN 

82 F=5 +INT (RND(O)#{0):REM START OF BAT ACROSS 
85 X=t.1:¥=! 

90 EA=BA:ED=BD:REM ERASE BALL 

100 POKE 286724 (324ED+EA) , 32 

110 POKE 28672+(32¥BD+BA) ,48:REM PLACE BALL 

115 EA=BA:ED=BD:REM ERASE BALL 

120 IF BAS30 OR BAI THEN GOSUB 1000 

130 IF BDDL1 THEN GOTO 2000 

140 IF PEEK (28440+324BD+BA)=24 THEN GOSUB 3000:60T0 150 
144 IF PEEK (28640+32%BD+BA+1)=24 THEN 6OSUB 3000:G0TO 150 
145 IF PEEK (28640+329BD+BA)=35 THEN GOTO 4000 
146 IF PEEK (28640+32BD+BA-1)=24 THEN GOSUB 3000 
150 BA=BA+K 

{60 BD=BD+Y ° 

200 AS=INKEYS 

210 IF AS="Z" THEN F=F-I 

220 IF AS="N" THEN F=F+1 

222 IF F¢{ THEN F=t 

293 IF F330 THEN F=30 

225 S=29080¢F 

230 POKE S-1,32:POKE S+1,32:POKE 5,140 

500 BOTO 100 

1000 X=-x 

1260 RETURN 

2000 IF ABS(F-BA)}2 THEN 2500 

2005 Y=-¥ 

2200 GOTO 140 
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2500 CX=CX~1 
203 IF CX=0 THEN PRINT @ 288,"THE GAME IS OVER” 
2905 IF CX=0 THEN PRINT @ 352, "YOU SCORED "35C 


2510 PRINT @ 480, "SCORE ";SC;° BALLS ";CX 
2520 PRINT @ 414," " 
2050 PRINT @ 384," ‘ 


2030 IF CxX=0 THEN 4020 

209? FOR T=1 TO 10:SOUND T,1:NEXT 

2040 BA=INT(RND(0)%6)+6:REM START OF BALL ACROSS 
2JJ0 BD=8: REM START OF BALL DOWN 

2060 F=5 +INT (RND(O)$10):REM START OF BAT ACROSS 
2570 GOTO 90 

3000 POKE (29640+52%BD+BA) , 32 

S001 JTF RND(O)>.8 THEN POKE (28640+32%BD+BA+1 
3002 IF RND(O)<.1 THEN POKE (28640+52%BD+BA-1 
S010 $C=$C0+437 

3020 PRINT @ 480, "SCORE ";SC 

3030 COLOR, 1:FOR T=1T05: NEWT: COLOR, 0 

3035 Y=-Y 

3040 RETURN 

4000 PRINT @ 288,"YOU HAVE DONE IT!" 

4010 PRINT @ 352,"YOU SCORED ";SC&CX 

4020 REM END OF GAME 

4025 FOR T = 10 TO 30 

4030 SOUND T, ! 

4040 NEXT 

4050 RUN 


PLAGUE SPOT 


b 


y 
by 


je 
32 


In this gripping game, you have to work 
yourself (a graphics symbol, shown as the $ in 
the sample printouts) from the top left hand 
corner of the screen to the bottom right hand 
one. 


The plague spots (the X's) are constantly 


28 


increasing as the game goes on, 
you hit one your score will increase. 
to the safe spot in the 


to get 


and each time 
You have 
bottom right 


hand corner with the Lowest possible score. 


Here are a few ‘snapshots!’ of it in action: 


O5C) KUXXXX KKK XXX XK XX XXX KXKXXX 
x xX x x 
XXX xX x X x 
x XxX x x yx xX 
x A x X 
x A x x 
x x x x 
ns re. xX 
x x x & x xX 
xx x $X X xX Xx 
x Xx y . xX XX X 
x x x x x 
x x MX Xx 
X x 

XX 950 YX MMXXXX XK XX XK KX XK XXX KKK 

MXXXXXXXK x x ~ x 

a yx x Xx 

x “x xX xX xX 

¥ x x xX x 

x x x 

x x x 

x -¥ xX : 

x » x $ x x 

ey ¥ ¥ x xX 

x Xx x vy ¥ XX X 

x x ¥. x 

x x XX xX 

x x 

XX x KX XX ¥X XX 
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There is a high score feature, so you can try 
and get a better (that is lower) score’ each 
round. You'll find that adding a high score 
touch Like this one will enhance many games. 


10 REM PLAGUE SPOT 

15 HS=9999999 

20 CLS 

30 $C=0 

35 Bg="," 

40 PRINT @ 0, "XXXXXXXKXXK EX KX KCCI Es 

50 FOR J=31 TO 447 STEP 32 

60 PRINT *X or 

70 NEXT J 

BO PRINT 9 480, "XXXXXXXXXXXXRAXKKKK LAK KKK ANS $$ "3 

110 SL=28736 

120 FOR T=1 TO 30 

130 Z=29715+INT(RND(0) £448) 

140 POKE 7,24 

150 NEXT T 

140 W=SL 

170 AS=INKEY$ 

175 IF AS<>"A" AND AS<)"Z* AND ASC3"," AND AS<)"." THEN AS=B$ 
176 BS=A$ 

180 IF A$="." THEN SL=SL+i:IF PEEK (SL)=24 THEN BOSUB 1000 
190 IF A$="," THEN SL=SL-i:IF PEEK (SL)=24 THEN GOSUB 1100 
200 IF A$="Z" THEN SL=SL+32:IF PEEK (SL)=24 THEN GOSUB 1200 
210 IF A$="A" THEN SL=SL-32sIF PEEK (SL)=24 THEN GOSUB 1300 
215 IF SL <28472 THEN SL=28472 

216 IF SL 329183 THEN SL=28672 

219 IF PEEK(SL)=36 THEN 5000 

220 POKE W,32:POKE SL, 137 

230 POKE 28715+INT(RND(O) $448) , 24 

500 GOTO 140 

1000 SOUND 1,1 

1010 SL=SL-1 

1020 SC=SC+ 


30 


1030 BOTO 1500 
1100 SOUND 4,1 

1110 SL=SL+ 

1120 SC=SC+1 

1130 GOTO 1500 

1200 SOUND 8, 1 

1210 SL=SL-32 

1220 SC=SC+1 

1300 SOUND 12,1 

1310 SL=SL432 

1320 SC=SC+I 

1500 PRINT 2.0, 1000-104SC;" * 

1505 IF SC}99 THEN 5000 

1510 RETURN 

5000 FOR T=1 TO 5 

5005 PRINT 2 476, "#48" 

5010 PRINT 9 508, "**"" 

5020 SOUND RND(19) 41,1 

5030 PRINT 2 476, "***" 

5040 PRINT @ 508, "#48" 

5060 NEXT | 

5070 IF SCCHS THEN HS=SC 

5090 PRINT 2 192," YOUR SCORE WAS ";1000-1085C 
5100 PRINT 2 320," BEST SO FAR IS ";1000-108HS 
5120 FOR T=1 TO 15:SDUND T,{:NEXT 

5130 GOTO 20 


Finally, here are the character codes to use 
for PEEK and POKE: 


0 @ 16 P 3c 48 0 
1A 17 Q 33! 49 1 
2 B 18 R 34 " 590 2 
3.C 19 S$ 35 # o1 3 
4 D 20 T 36 § 92 4 
Oo —E e1 U 37 4% 03 5 
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O2sTrACcwH Tt Tn 


Sree YAN << XS K 
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+ #O A =p 


OoOaoN MD 


VOY tI AN 22 08 


CHAPTER THREE — 
USING MODE 1 


As you know, your computer is equipped with two 
graphics modes, MODE (0) (which it is in 
automatically when you first turn the computer 
on) and the high resolution mode, MODE (1). 
We've been using MODE (0) to date, so it's 
about time we had a Look at the other one. 


SPIROGRAPH PATTERNS 


Spirograph patterns are formed by both the 
interior and exterior epicycloid curves. One of 
the formulae for such a curve is given in Line 
100 of the first program in this section, in 
which A is the radius of the Large circle, B is 
the radius of the small circle, and H is_ the 
point on the circumference of the small circle. 


The program here chooses A, 8B and C at random, 
then traces out the shape on the’ screen. The 
finished pattern is held for a moment, then the 
process begins again. 


If you don't Like a particular pattern which is 
forming (or you can't see one at all, which 
happens with some combinations), just press any 
key and a new design will begin. Some of the 
results of thiS program are very, very 
attractive indeed. You'll find the patterns 
Look best if viewed from a slight distance. 
This program is based on one written by Keith 


Hewson. | 
10 REM SPIROGRAPH 


15 Pl=3.141592 
20 MODE(1) 
20 COLOR INT(RND (0) $3) +2 
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30 IF INKEY$¢)"" THEN 30 

40 A=INT(RND (0) $15) +1 

50 B=INT(RND(O) $15) +1 

60 HEINT(RND(0) 915) 41 

70 FOR J=0 10 39PI/1.7 

BO FOR I=0 TO 28P] STEP PI/60 

90 X=(A-B)4COS (1) +H8COS ( (A-B) 81/B+J) 
95 IF INKEY$<3"" THEN RUN 

100 Y=(A-B) $SIN (1) +HESIN((A-B) 41/B4d) 
110 SET ( (604K), (32#Y)) 

120 NEXT I 

130 NEXT J 

140 FOR T=1 TO 1000 

{50 NEXT T 

140 RUN 


LISSAJOUS FIGURES 


Jules Antoin Lissajous, a French physicist who 
Lived from 1822 to 1880, made a study of the 
movement of particles under the action of 
periodic motions acting at right angles to each 
other. He discovered that bodies moving in this 
way trace intricate patterns as they dance 
around each other. This program, based on one 
written by Frazer Melton, shows what Lissajous 
discovered. 


As in the SPIROGRAPH program we've just looked 
at, SET is used to plot the points on _ the 
screen, tracing out the path of the sum of the 
periodic motions. 


The delightful design produced on the_ screen 


can be used in a number of ways. One way is to 
compare two frequencies. If they are the same, 
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the program will draw a circle. If they are 
different, the number of points where the 
curve touches either the vertical or horizontal 
edge is the ratio of the two frequencies. If 
fi is the known frequency, then the unknown 
frequency (f2) is equal to the number of times 
the curve touches the vertical edge of the 
confining box, multiplied by the known 
frequency. 


Here are some examples of the effects’ the 
program can produce. Of course, they are far 
more attractive in color on the screen than the 
printouts suggest. 


rm, 
” 
Ao 
aa 
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There are two versions of the program. The 
first one allows you to enter your own’ choice 
of STEP and X and Y frequencies. STEPs should 
be around 50 or more if the X and Y frequencies 
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are in single figures, and correspondingly more 
as the size of the frequencies increases. The 
higher the step number, the greater’ the 
resolution of the final figure. 


Enter this program into your computer: 


10 RER LISSAJOUS FIGURES 
20 REM FRAZER MELTON 


22 PI=3.141592 

2g CLS 

3Q INPUT "STEPS";§ 

“4 REM ENTER 70’ TO END 

So IF S=0 THEN END 

40 INPUT "Y FREQUENCY": Y 

JQ INPUT "X FREQUENCY"; X 

30 MODE (1) 

B2 Z=INT(RND(0)%3)+2 

85 COLOR (Z) 

90 FOR A=0 TO 28PI STEP PI/S 
100 SET ((208SIN(ASY) +40), (208005 (AX) +30) ) 
110 NEXT A 

120 FOR T=i TO 2000:NEXT 

130 RUN 


Try the following sample values with this 
program: 


STEP Y FREQUENCY X FREQUENCY 


oD 
© 
On woeuan — 
PAHOA MUN A - 
ol Ol 
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900 13 6 


900 4 12 
200 8 1 
250 3 B 
900 20 8 
500 15 20 


The next program chooses the two frequencies at 
random, between one and 20. The step size is 
fixed at 500, but there is no reason why you 
should not change that if you wish. There is a 
slight pause at the end of each figure and then 
the screen clears, and a new figure begins. 


10 REM AUTO-LISSAJOUS 

20 REM FRAZER NELTON 

ge PI=3, 141592 

50 5=500 

40 Y=INT(RND (0) #20) +1 

SO) X=INT(RND (0) 420) +1 

80 MODE (1) 

82 Z=INT(RND (0) #3) +2 

85 COLOR (2) 

70 FOR A=0 TO 24P1 STEP PI/S 
100 SET ( (2095S IN(ALY) +60), (208005 (ASX) +30) ) 
103 TF INKEY$<>"" THEN 40 
110 NEXT A 

120 FOR T=! TO 2000:NEXT 

130 GOTO 40 


This final version is simply a modification of 
the preceding program, in which the screen does 
not clear between each image, so _ eventually 
you'll end up with a very complex overlay of 
designs. 
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10 REM AUTO-LISSAJOUS 

20 REM FRAZER MELTON 

21 REM MOVE LINE 80 TO 25 SO WILL NOT ERASE 
22 PI=3, 141592 

2d MODE (1) 

30 5=500 

AQ Y=INT(RND(Q) 420) +1 

00 X=INT(RND (0) $20) +1 

B2 Z=INTIRND(0) #3) +2 

85 COLOR iZ) 

90 FOR A=0 TO 24FT STEP PI/S 

100 SET ((208SIN(ASY) +40), (208005 (ASX) +30) ) 
103 TF INKEY$<>"" THEN 40 

110 NEXT A 

120 FOR T=1 TO 2000:NEXT 

130 60T0 40 


As you know, the SET command is used to place 
dots of light on the screen at a_e position 
specified by the numbers which follow the 
command. 


SET (X,Y) places the dot at Location X (which 
can be zero to 127; the distance across’ the 
screen from left to right) and location Y (a 
number from zero to 63; the count down the 
screen). 


The next program, MARTIAN LACE, uses SET to 
produce a balanced (and highly attractive) 
picture on the screen. As you'Ll see when you 
run it, the design evolves perpetually. 


10 REM MARTIAN LACE 
yO MODE (1) 

60 X=INT(RND (0) 463) +! 
70 Y=INT(RND (0) 4351) +1 
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BO Z=INT(RND(O) #4) +1 
85 IF RND(O)>.3 THEN Z=1 | 
90 COLOR (2) | 
100 SET {X,¥) 

110 SET (128-X,Y) 

120 SET (128-X,44-Y) 

130 SET (X,64-Y) 

1460 GOTO 40 


MARTIAN LACE is also used in the MAGIC 
COMPOSER program in the chapter on sound. 


THE MOTION PICTURE MAN 


You can use the computer as a kind of ‘'‘etch-a- 
sketch' toy in Mode 1. You enter a number (2, 3 
or 4) to select the color you want, then use 
the cursor keys (the ones with arrows on them) 
to draw designs of your choice on the screen. 
The image begins in the top Left hand corner of 
the screen. 


As well as responding to the arrow keys, the 
program accepts, and acts on, the following 
commands: 


C - copies picture created to some printers 
(such as the Seikosha GP-100 or GP-100A) 


R - runs the program again from the beginning 
N —- moves the cursor back to the start position 
E - freeze the picture 


S — stop the program 
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10 REM MODE ! SKETCHER 
20 INPUT A 

30 MODE (1) 

40 COLOR A 

50 X=0:¥=0 

70 C8=INKEY$ 

80 IF C$="," AND X<127 THEN Y=X+1 
90 IF C$="4" AND X30 THEN X=K-1 
100 IF C8="." AND Y30 THEN Y=Y~! 
{10 IF C$=" " AND Y<43 THEN Y=Y+l 
120 SET (X,Y) 

130 IF C$="C* THEN COPY 

140 IF C$="R" THEN RUN 

150 IF C$="N" THEN 50 

160 IF C$="E" THEN 1000 

70 IF C$="5" THEN END 

180 GOTO 70 

1000 GOTO 1000 
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CHAPTER FOUR — 
MAKING MUSIC 


Although it may seem a Little Limited, the 
SOUND command on your computer is capable of 
producing some quite interesting effects. 


The SOUND command is followed by two numbers. 
The first is the pitch Ca number from 0 to 31, 
with O being a rest and 31 the highest note the 
computer can produce). The second is_ the 
duration (from 1 to 9, with 1 being the 
shortest). 


We can use the computer to play all its notes 
with the following program, SOUND DEMO: 


10 REM SOUND DEMO 
20 FOR T=1 TO 3! 
20 SOUND T,! 

40 NEXT 


When you run this program, you'll hear all the 
notes played from the Lowest A (note 1) to’ the 
highest D# (note 31). 


COMPOSER ANDROID 


The computer can also be programmed to choose 
notes at random and create some rather hopeless 
‘electronic music! as COMPOSER ANDROID 


demonstrates: 


10 REM COMPOSER ANDROID 

20 DURATION=INT(RND (0) €2+1) 
SQ PLTCH=INT(RND (0) #31) +1 
40 SOUND PITCH, DURATION 

30 BOTO 20 
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As you'Ll hear, this is not very tuneful. It is 
possible, however, to write a program which 
sticks to one key (C) and manages to make 
noises which are much more deserving . the 
adjective 'musical'. Our next program, MAGIC 
COMPOSER shows this convincingly. You'LL see 
that the program also creates a pretty design 
on the screen as the music unfolds. The design 
part of the program is explained in_ the 
previous chapter of this book, on page 39, 
where it is called MARTIAN LACE, 


10 REM MAGIC COMPOSER 
15 DIM ACI) 

20 FOR Z=1 TO 11 

30 READ A(Z) 

40 NEXT 1 

50 MODE (1) 

60 X=INT(RND (0) #63) +1 

70 Y=INT(RND(O) 831) +1 

BO Z=INT(RND (0) $4) +1 

90 COLOR {Z) 

100 SET (X,¥) 

110 SET (128-1, Y) 

120 SET (128-X,64-Y) 

130 SET (X,64-Y) 

140 X=INT(RND(Q) 844) +4 

145 IF X=1 OR X37 THEN M=2+INT(RND(O)%4) ELSE Net 
150 SOUND A(X),K 

140 GOTO 40 

1000 DATA 28,27, 25, 23,21, 20,18, 16, 16,4, 28 
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ORGAN 


If you'd prefer to create your own music, 
rather than Let the computer do it, you can use 
the next program, ORGAN, with which to unleash 
your creative powers. 


When you first run the program, an input prompt 
will appear. In response to this question mark, 
enter a number between 1 and 9. The Lower the 
number, the faster the 'organ' will play. 


Here's the key to the notes you play. 


KEY NOTE 


=Z2ZUod<eOXKN 
oranmoa 


C! 
e D! 
Space E' 


10 REA ORGAN 

13 REM CHANGE A TO ALTER SPEED 
20 INPUT A:CLS 

30 CS=INKEYS 

40) IF C$="2" THEN SOUND 4,A 

49 CS=INKEY$ 

v0 IF C$="X" THEN SOUND 6,A 

Ju C$=INKEY$ 

60 IF C$="C" THEN SOUND 8,A 
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b5 CS=INKEYS 
70 IF C$="V" THEN SOUND 9,A 
75 C$=INKEY$ 

80 IF C$="B" THEN SOUND 11,4 
85 CS=INKEY$ 

90 IF C$="N" THEN SOUND 13,A 
95 C$=INKEYS 

100 IF C$="M" THEN SOUND 15,A 
105 C&=INKEY$ 

110 IF C$="," THEN SOUND 14,A 
115 CS=INKEY$ 

{20 IF Cé="." THEN SOUND 18,A 
25 C$=INKEYS 

130 IF C$=" " THEN SOUND 20,A 
135 IF C$=":" THEN END 

140 B0TO 30 


This organ is quite flexible. Here's the 
'music' of the folk song CLICK GO THE SHEARS to 
play on your organ. The music was'- transcribed 
by Peter Shaw: 


ow Oo 
C) wo oO 
=x2zex 
ZnNON 
mmdodc 
<= ON 
2zx2az 


Chorus 


zxa-. 
Oa 
gq =~ 
OC) ~ 
zxae 
ON a~ 
C) @ 
x<~< 
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CHAPTER FIVE — 
USING YOUR MEMORY 


With the aid of the additional plug-in memory, 
your computer can be used as a ‘real computer' 
in ways which were impossible for, at best, 
inconvenient) on the unexpanded machine. 


Let me explain what I mean by that. Before you 
bought your computer, you probably imagined it 
would be extremely useful as a means of storing 
and processing Large amounts of information. 
There are several areas of practical use in 
both the home and small business in_ which 
personal computers have been employed. These 
inc Lude: 


—- maintaining details of a record collection 

- looking after your personal Library 

—- storing recipes 

— maintaining personal financial records 

—- assisting in organising material for 
research projects 


However, if you had tried to create long and 
complex programs to do these -— and similar 
tasks -— on your unexpanded computer, you may 
have discovered that once you'd entered the 
Program to hold and process your data, there 
was so Little memory Left that the program was 
really only of use for demonstration purposes: 
"This program shows how the computer could act 
as a sorting and access aid for my _ record 
collection, if it had more memory". 
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When your computer was firs. released, there 
was Little software available for it. You 
probably know that commercial software 
developers always keep a sharp eye on new 
computers. If it looks Like a computer is going 
to take off, then it is worth writing and 
marketing software for the computer. There is a 
Little of the 'chicken and egg' situation here. 
A wide variety of software packages available 
for a particular computer can help a_ potential 
purchaser make up his or her mind regarding 
which machine to buy. 


You can now use your computer, with much of the 
software which is now available, as a cheap 
and very useful business or personal tool. 
There are some points to watch, however. You 
may well find that available programs suit your 
personal or business needs exactly. If that's 
the case, you just buy the program, load it in, 
and you're away. However, a program which works 
hand-in-glove with your present needs may, in 
the end, prove more of a handicap than a boon, 
as it may prevent you developing and expanding 
your activities as your needs change ~- and 
develop. 


How can you avoid this problem? One way is to 
use commercial software -— or programs in 
magazines and books Like this one -— as_ the 
Starting point for software tailored to your 
present, and anticipated future, needs. The 
other way, of course, is to write your own 
software from scratch, using the ideas you've 
Learned by reading this book. 


48 


There are a number of areas where computers 
have found ready application in business, and 
your computer can certainly assist in this” way 
with a small business. You'll find that, among 
other uses, you could develop programs to 
assist with the following: 


- the payroll of a small firm can easily 
be managed with the aid of your computer 


—- keeping an up to date inventory of the 
stock of a small warehouse or shop is_ also 
possible, and provided that you choose ‘'codes' 
to represent particular items (rather than 
spelling out the name of each item in detail) 
you'll discover you can keep a_e surprisingly 
high number of different products in_ your 
inventory file 


~- accounts work (both accounts receivable 
and accounts payable), along with such things 
as forecasting budgetary trends, are well 
within the capability of your computer, even 
for quite sophisticated and complicated work 


- word processing, after a fashion, can be 
Managed on your computer 


So, additional memory allows you to exercise 
your computer in ways which could have been 
unrealistic, or inconvenient on the unexpanded 
machine. But, it does not stop there. The 
extra memory gives you access to memory space 
to write far more elaborate, and satisfying, 
games than may have been possible before. 
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We'll Look briefly at some ideas for such games 
at the end of this chapter, but firstly we'd 
Like to mention another advantage of the 
additional memory; an advantage that applies 
equally to business and games programs. If you 
are constantly worrying about the possibility 
of running out of memory, you are unlikely’ to 
Create your programs at your best. 


The extra memory can be used, not only for 
making the program more elaborate and 
satisfying to use, but also in four important 
ways: 


- You can include full instructions, and 
very clear user prompts, so the user’ knows 
exactly what he or she is expected to do in all 
cases 


- Even if the instructions have been 
misunderstood, the extra memory can be used to 
advantage to add ‘error traps' to prevent a 
mistake by the program user causing the entire 
program to come to a grinding halt 


- The screen can be formatted in such a 
way aS to reduce the chance of such an operator 
error occurring with, perhaps, the bottom two 
Lines of the display being used only for user 
prompts, with these erased by two blank PRINT 
@ Lines after the prompts have been followed 


- The screen can also be formatted purely 
for visual effect, Spreading the computer 
output around the entire screen to make it as 
easy aS possible to read and understand it 
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These four suggestions apply — as we said - to 
any programs, whether they are for enter- 
tainment, instruction or business administra- 
tion. 


NASTY HABITS 


After you've cut your programming teeth on 
short, simple programs, you're sure to want to 
start writing Longer, more complex ones. When 
you do this, you may discover that many of the 
good habits you've learned will desert you. 


If you're not worried about making a_=program 
tight and compact, you'll discover it is very 
easy to set up a long and sloppy set of 
IF/THENsS which could easily have been’ replaced 
with a single IF/THEN sending action to a 
subroutine. When you have memory to spare, it 
often seems too much trouble to bother cleaning 
up your programs. 


Discarded subroutines can clutter up the 
bottom ends of the Listings, and GOTOs cover a 
multitude of situations which arose because you 
did not give sufficient thought to the highest 
Line number you might need. 


SURPRISES 


One of the best things you can add to a Longer 
program is the element of surprise. If you can 
include situations which do not occur every 
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time a program is run, you'Ll be making sure 
that the game remains interesting for a= much 
Longer time than might be the case if every 
situation was triggered every time the game was 
run, 


You may wish to use and adapt the simpler 
programs in this book, adding your own touches. 
Instructions, use of color and sound can all 
add to the value of the final program. 


Another way of improving programs, and making 
them interesting to users for a Longer time, it 
to use a feature you've no doubt seen in 
computer games’ before, the 'degree of 
difficulty’. When you allow the player to 
select a degree of difficulty, make sure’ that 
the user input really does alter the standard 
of play. Ensure that, even at the highest Level 
of play, the final score (or successful Landing 
on the moon, or a tally of obliterated aliens 
or whatever) is attainable in practice. 


You could also add further interest to games by 
awarding points, or scores, or ratings and the 
Like, which are genuinely related to _ the 
speed, skill, survival time or whatever’ the 
player demonstrated. A further twist is to 
award a ‘rank! (like 'star fleet commander', 
'novice' or ‘incompetent fool') to the player, 
depending on how well he or she did. Points and 
ranks help to ensure that a player will remain 
interested in a game for a longer time’ than 
might otherwise be the case. 


The use of a ‘high score' is also a good idea. 
You can see high scores in a few programs’ in 
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this book such as MESOZOIC ATTACK. 


After you've been writing programs for a while, 
you'LL realize that many of them run too fast 
to be good games without the use of a ‘delay 
subroutine' (such as an empty FOR/NEXT Loop to 
slow things down). If the computer is meant to 
be thinking before responding to a move, it is 
more realistic for there to be a short pause 
before the computer replies, rather than come 
back instantly with itS move or answer. 


SPEED CONTROL 


In contrast to this, you may well find that 
very long, moving-graphics programs run too 
Slowly. You can ensure your program runs as 
fast as possible by starting with a GOSUB which 
jumps right over your main program to the end. 
In this subroutine, you assign variables, give 
the instructions, and so on. 


When the computer comes across a GOSUB or GOTO 
command, it starts at the very first Line of a 
program, then searches through, Line by Line, 
‘till it comes to the one it is’ looking ffor. 
Therefore, if an often-called subroutine is 
near the start of the listing, rather than near 
the end, the computer will find it more quickly 
than would be the case otherwise. The saving in 
time is not dramatic, but every fraction of a 
Second you can save in a moving graphics 
program adds to its effectiveness. 
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IDEAS FOR YOUR OWN GAMES 


The following list is by no means’ exhaustive, 
but should give you some ideas on the kind of 
programs you may be willing to tackle: 


CRIBBAGE: Sir John Suckling, who lived from 
1609 to 1642, is credited with the invention of 
this game, an elaboration of the older EngLish 
game of NODDY. If you enjoy cribbage, you'll 
probably enjoy the challenge of creating an 
electronic opponent, which not only controls 
the cards, but also draws a computer 
representation of the cribbage board on_ the 
screen. 


POKER: This, and many other card games, can be 
written using a deck of cards which is really 
the numbers’ one to 52, with one through 13 
representing, say, the hearts, 14 through 26 
the diamonds, and so on. Once you have a simple 
version of poker up and running, you may want 
to elaborate it, to play one of the many 
variations of the game, such as BLIND TIGER, 
WHISKEY POKER, STUD POKER, SEVEN-CARD STUD, LOW 
BALL and FREEZEOUT. 


CHILDREN'S CARD GAMES: There is a wealth of 
Games ideas in the field of children's’ card 
games and because they are generally much 
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simpler to play, with less subtle strategy, 
you'LL probably find them easier to program 
than ‘adult' card games. 


Children's card games include: SLAPJACK, OLD 
MAID, PIG, GO FISH and BEGGAR—-YOUR-NEIGHBOUR. 


BACKGAMMON : Although possibly man's’ oldest 
board game, the rules were not recorded in a 
systematic form until the middle of the 1700's, 
when the famous game writer Edmond Hoyle 
decided to write them down. Since then, the 
only significant change in the game [and one 
which certainly adds to its appeal) is the 
provision of the doubling cube. You'll find 
that Backgammon may be somewhat simpler’ to 
write than other board games of pure. skill, 
because the use of dice introduces an element 
of chance into the game from which the computer 
can benefit. 


CHESS: While this may seem an impossible’ task 
at your present stage, you can approach it by 
trying to write a kind of ‘mini-chess' you 
invent. Your version of chess could be on a six 
by six board, instead of the standard eight by 
eight, or could use just four pieces for each 
Side. When you start thinking about it, you'll 
realise that chess (and other board games, ffor 
that matter) is a fruitful field to look for 
ideas to turn into games for your computer. 


NINE MEN'S MORRIS: This game, named in 
Elizabethan times, is played on a simple board, 
but there is a wealth of strategy you can 
program into it. 
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CHECKERS: This, like Chess, can act as a source 
of ideas for variations. A 'mini-checkers'on a 
four by four board may be a good place to 
begin. 


ROULETTE: The most famous gambling game of them 
all — Roulette — is a great one to computerise, 
and one which you should not find difficult to 
do. The relative ease of writing a Roulette 
program, compared to one which, say, plays 
Chess, comes from the fact that a Roulette 
program does not require any strategic 
'jnteLligence', but simply has to accept bets 
and spin the wheel, then act on the result. 
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CHAPTER SIX — 
CREATING BOARD GAMES 


This chapter of the book will lead you through 
the development of an almost-complete game of 
Checkers (or Draughts, as it is often called). 
The game is 'partially-complete' because it 
Lacks the facility of multiple jumps. Apart 
from this, it will provide you with a Lot of 
entertainment. 


The main reason for including it in the book is 
so that a method for numbering boards ffor 
computer versions of board games_ can be 
exp Lained. This system produces a board which 
the computer can manipulate relatively easily. 
A similar numbering system can be used ffor 
almost any board game, from Chess to Othello. 


You should follow the text carefully, entering 
each version of the program as it is described. 
Then you'LL have a pretty good understanding of 
how the system works. This information can then 
be used to create your own computer’ board 
games. 


The normal way to number a checkers board is to 
count off the white squares from one to 32, as 
in this diagram: 





Actually, the black Squares are counted, but 
white ones are used here because it is easier 
to see the numbers on white than on the black. 
When you Look at the numbers on this_ board, 
you'Ll see the method creates a problem when we 
try to define a move in terms of the difference 
between two diagonally adjacent squares. In one 
direction, the difference between the squares 
can be three or _ four, and in the other 
direction, the difference can be five or four. 
There are also no 'spare' numbers to’ indicate 
where the edge of the board begins. 


In an article in Scientific American in the 
1960s, A L Samuels described a board-numbering 
system he had devised in which the difference 
between diagonally adjacent squares was’ always 
four and five (or minus four and minus five). 
The system also allowed for numbers to be given 
to squares which were 'off the board'. (You can 
read about Samuels' system in Systems Analysis 
and Programming, in READINGS FROM SCIENTIFIC 
AMERICAN, Strachey, C., WH Freeman and Co., 
San Francisco, 1971.) 


Although Samuels' system worked, it was a 
Little Limiting, so I devised a system of my 
own which wasS more convenient for the computer 
to use. In my version of the system, the 
difference between squares is alwayS Six or 
seven for minus six and minus’ seven). The 
system sets up an array of 82 elements, and 
allots certain elements of this array to 
Squares on the board. ALL the others are 
understood by the computer to be off the board. 
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In this program, the computer allots a value of 
9 to any square off the board, zero to an empty 
Square, 1 to a computer's ordinary piece and 2 





to its King, and -1 for the player's piece with 
-2 for the player's King. This may sound a 
Little complicated, but as you read on, it 
should become clear. 


Look at the numbered board above. You can see 
that if you move from the top right hand corner 
(69) to the square diagonally below it (63) the 
difference between the two squares is —6. Now, 
choose any other square on the board from which 
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you can move down and to the left, and you'll 
see there is a difference of -6 between the 
Square you started on, and the square on which 
you have finished. 


This predictability makes it easy for the 
computer to manipulate pieces on the _ board. 
You'll see if you move in the other direction 
(that is downwards to the right) that the 
difference between the squares is —/7. 


With the first version of the program, we'll 
actually be playing on this board, so _ you'll 
have to get a number of buttons or small coins 
to use as pieces. Alternatively, you can 
transfer the numbers to a full-size board. 


The program is in two parts. The first ‘sets up 
the board' (the subroutine starting at 9000) 
and the second (10 to 370) actually plays the 
game. Your pieces start at the bottom of the 
board on the Lower numbers, and the computer 
Starts at the top. You place the pieces on the 
board and then type in RUN. As you'll see, it 
plays remarkably quickLy. 


The computer's moves are shown as two numbers. 
The first is the square it is moving from, and 
the second is the square into which it will 
move. Move the computer's piece on the board 
as instructed and then decide on your move. 
Make sure you actually move your piece on the 
board before you make the move, so you’ don't 
forget what the move was. Remember that there 
iS no provision within the program for multiple 
Jumps by either you or the computer. As well, 
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the game in this version cannot make or use 
Kings. 


Here is the first part of the program,’ which 
sets up the board. It creates an array - DIM 
A(82) - then fills the array with numbers 
representing pieces on the board (1 and -1), 
empty squares (0) and squares off the board 


(9). 9000 DIM ACBZ) 
9030 X(L)=-hs¥ (2)=-7 
9050 FOR Z=1 TO 82 
9060 A(Z)=9:NEXT 
9065 FOR 7=56 TO 72 
9064 IF 7247 THEN Z=69 
9067 IF 1=60 THEN 7=63 
9070 A(Z)=1:NEXT 
9075 FOR 7=43 10 53 
9078 IF 1-47 THEN 7=50 
9080 A(Z)=O:NEXT 
9090 FOR 2=24 TO 40 
9095 IF 1=34 THEN 1=37 
9096 IF Z=28 THEN 2=30 
9100 A(Z)=-LENEXT 
9110 AS="MY MOVE" 
9120 BS="YOURS" 
9130 RETURN 


Check to see if it is working properly before 
you proceed. RUN the program, and ignore the 
error message you get. Get the computer to 
print out the following, to make sure it’ has 
asssigned values correctly. The correct answer 
to each is given: 


PRINT A(e23) 9 
PRINT A(54) 9 
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PRINT A(64) 1 
PRINT A(38) -1 
PRINT A(51) 0 
PRINT A(73) 9 


Now enter the following: 


1 REM CHECKERS 
J CLS:605UB 9000 


10 Q=0 

20 Z=24 

2a IF A(Z)=9 OR A(Z)<1 THEN 100 

90 X=h 

60 IF ACZ+X(X})¢0 AND A(Z+29X(X))=0 THEN B=X(k) 
70 IF Q¢70 AND Z7+24@ THEN 120 


B0 @=0 
90 IF X42 THEN X=X+1:60T0 60 
100 IF 2<72 THEN Z=Z+1:6070 25 


110 IF Q=0 THEN 140 

120 AiZ+B)=0 

130 AtZ+2%@)=A(Z) 

140 AiZ)=0 

150 PRINT A$3Z;Z+238 

155 GOTO 320 

1460 Y=0 

170 Z=INT(RND (0) &49) +24 

180 Y=Y+l 

190 IF ACZ)¢31 AND A(Z)¢22 THEN 170 
200 X=! 

210 IF ACZ+X(X))=0 THEN Q=X (Xx) 

220 IF A(Z)=2 AND ACZ-X{X))=0 THEN Q=-XiX) 
230 IF 0630 THEN 290 

240 IF X<2 THEN X=X+1:60T0 210 

260 IF ¥<100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 A(7+8)=A(Z) 
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200 A(Z)=0 

310 PRINT @ 0,A$sZ3Z+0 

320 PRINT:PRINT BS: 

330 INPUT A,B 

340 CLS:A(B)=A(A) 

350 ACA)=0 

360 IF ABS(A-B)>7 THEN A({ (A+B) /2) )=0 
370 GOTO 10 


Play a complete game with the computer, using 
the board provided, then return to the book, 
and we'Ll Look at ways of improving the game. 
You move by entering the number of the square 
you're moving from, then a comma (,), then the 
square you're moving to, before pressing 
RETURN. 


The next version of the program adds a_ board 
display. You still need to refer to the diagram 
to get the numbers to enter, and there is_ no 
provision for Kings. Delete Line 320 of your 
program, and delete the CLS from Line 340. 
Change 310 and 150 to GOSUB 5000, and add Line 
15. Change Line 155 to GOTO 330. 


1 REM CHECKERS 
2 REM VERSION IT 
¥ CLS:G0SUB 9000 


10 Q=0 

15 60SUB 5000 

eG 2=24 

2g iF AtZ)=9 OR ACZ)<1 THEN 100 
JQ X=! 


GQ TF ACZ#X(K))<0 AND A(Z+28X(X))=0 THEN Q=X(X) 
70 IF Q¢>0 AND Z+2%Q THEN 126 

80 G=0 

90 IF x2 THEN X=X+1:6070 60 
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100 IF 2472 THEN Z=Z+1:G0TO 25 
110 IF Q=0 THEN 140 

120 A(Z+B)=0 

130 &(7+2%Q) =A(Z) 

140 A(Z)=0 

150 60SUR 5000 

155 GOTO 330 

160 Y=0 

170 Z=INT(RND (0) $49) +24 

180 Y=¥+! 

190 IF ACZ)<>t AND A(Z)<32 THEN 170 
200 X=! 

210 IF ACZ+X(X))=0 THEN Q=%(X) 
220 IF A(Z)=2 AND ACZ-X(X))=0 THEN @=-X(X) 
230 IF @¢30 THEN 290 

240 IF X¢2 THEN X=X+1:60T0 210 
260 IF ¥¢100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 ACZ+Q) =A(7Z) 

200 A(Z)=0 

310 GOSUB 5000 

os) INPUT A,B 

340 A(B)=A(A) 

250 ALA) =0 

360 IF ABS(A-B)>7 THEN AC ({AtB) /2))=0 
370 GOTO 10 

3000 FOR M=24 T0 72 

3010 IF A(M)=1 THEN A(M)=64 
9020 IF A(M)=-1 THEN A(M)=87 
3030 IF At(M)=0 THEN A(M)=32 
3050 NEXT ¥ 


5055 PRINT 2 0," " 
5040 IF Q¢>0 THEN PRINT @ 0,A$3Z;2+0 
5070 PRINT @ 320," 


J080 PRINT @ 44,; 
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3090 FOR K=0 TO 3 

s100 FOR J=0 TO 3 

S110 PRINT CHR$ (128); CHRS(A(72-J-138K)); 
yi20 NEXT J 

vl30 PRINT 

w140 FOR J=0 TO 3 

W190 PRINT CHR$(A(66-J-139K)) sCHRS (128); 
vi6O NEXT J 

vL70 PRINT 

3180 NEXT kK 

y200 FOR M=24 TO 72 

u210 IF A(M)=66 THEN AC(M)=1 

J220 IF A(M)=87 THEN A(N)=-1 
g200 IF A(M)=32 THEN A(M)=0 
v2J0 NEXT ¥ 

u260 RETURN 

9000 DIM AiG?) 

9030 X(1)=-6:X(2)=-7 

9050 FOR Z=1 10 82 

97060 A(Z)=9sNEXT 

9065 FOR Z=56 10 72 

9064 IF 2=67 THEN Z=69 

9067 IF 2=60 THEN Z=63 

7070 ACZ)=1:NEXT 

9075 FOR 2=43 TO 53 

9076 IF Z=47 THEN Z=50 

9080 A(Z)=0:NEXT 

7090 FOR Z=24 TO 40 

9095 IF 2=34 THEN 2=37 

7096 IF Z=28 THEN Z=30 

9100 A(Z)=-1s NEXT 

9110 AS="MY MOVE" 

9120 BS="YOURS" 

9130 RETURN 
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The next version of the program adds Kings (the 
computer's King is a K, yours is the hash, #, 
symbol), and with the addition of a_ single 
Line, 215, adds an element of foresight (the 
computer will be reluctant to move into danger 
on a non-capture move) which markedly improves 
the computer's play. 


1 REM CHECKERS 

2 REM VERSION ITI 

3 REM KINGS ADDED 

4 REM PLUS SOME STRATEGY 
o CLS:60SUR 9000 


10 Q=0 

15 BOSUB 5000 

20 7=24 

2d IF A(Z)=9 GR A(Z)<1 THEN 100 
30 X=1 


so IF 2671 THEN IF ACZ7-X(X))¢O AND A(Z-28X{X))=0 THEN Q=-X (x) 
60 TF ACZ+X(X))<0 AND A(Z+28X(X))=0 THEN Q=X{X) 
70 TF Q¢>0 AND 2+28@ THEN 120 

80 8=0 

90 IF X<2 THEN X=X+i:60T0 60 

100 IF 2¢72 THEN Z=Z+1:G0T0 25 

110 IF Q=0 THEN 140 

120 AiZ+Q) =0 

130 A(2+2%8)=A(Z) 

140 A(Z)=0 

150 BOSUB 3000 

155 6070 330 


160 Y=0 

170 Z=INT(RND (0) #49) +24 

180 Y=¥+1 

190 TF ACZ)<21 AND A(Z)<32 THEN 170 
200 X=1 


210 IF ACZ+X(X))=0 THEN B=X{X) 
215 IF ACZ+2tX{X))<0 AND Q<>0 AND RND(G)>.7 THEN Q=0 
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220 IF ACZ)=2 AND ACZ-X(X))=0 THEN B=-X(X) 
230 IF Q<>0 THEN 290 

240 IF Xé2 THEN X=4+1:GOTO 210 

260 IF ¥<100 THEN 170 

270 PRINT "YOU WIN* 

280 END 

290 A(Z+O)=A(Z) 

300 A(Z)=0 

310 GOSUB 5000 

330 INPUT A,B 

340 A(B)=ACA) 

350 A(A)=0 

360 IF ABS(A-B)>7 THEN A(( (A+B) /2))=0 
370 GOTO 10 

5000 FOR H=24 TO 72 

5005 IF A(M)=1 AND M23 AND M¢28 THEN A(M)=2 
5006 IF A(M)=-1 AND 468 THEN A(H)=-2 
5010 IF ACM)=1 THEN ACM) =46 

5015 IF A(M)=2 THEN A(M)=75 

5020 IF A(M)=-1 THEN A(M)=87 

5025 IF A(M)=-2 THEN A(M)=35 

5030 IF A(M)=0 THEN A(M)=32 

5050 NEXT I 


5055 PRINT 9 0," ' 
5060 IF O¢)0 THEN PRINT 2 0,A$373 740 
5070 PRINT @ 320," , 


0080 PRINT @ 64,; 

0090 FOR k=0 TQ 3 

vlQ0 FOR J=0 TO 3 

wL1Q PRINT CHRS$ (128) sCHRS(A(72-J-138K) ); 
yi20 NEXT J 

3130 PRINT 

3i40 FOR J=0 10 3 

U1S0 PRINT CHR$(A(66-J-138K) ) sCHRE (128); 
v160 NEXT J 

JL70 PRINT 

J180 NEXT K 
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v200 FOR M=24 TO 72 

J2lQ IF ACM)=66 THEN A(M)=1 

o2l3 IF A(M)=75 THEN A(M)=2 

a220 IF A(M)=87 THEN A(M)=-1 
gezd IF A(M)=35 THEN ACM) =-2 
0290 IF A(M)=32 THEN A(M)=0 

szuG NEXT # 

oe” 


u260 RETURN 

9000 DIM A182) 

9030 X(1)=-6:X(2)=-7 
9090 FOR Z=1 TO 82 
7060 A(Z)=9:NEXT 

9065 FOR 7=56 TO 72 
9066 IF 2=67 THEN 72=69 
9087 IF 2=60 THEN 7=63 
9070 A(Z)=1:NEXT 

9075 FOR 2=43 10 33 
9076 IF Z=47 THEN Z=50 
9080 A(Z)=0:NEXT 

9090 FOR Z=24 TO 40 
9095 IF 2=34 THEN Z=37 
9096 IF Z=29 THEN Z=30 
F100 A(Z)=-1: NEXT 

9110 A$="MY HOVE" 

7120 BS="YOURS" 

7150 RETURN 


Our final version of the program adds ae few 
features, such as a ‘score!’ which counts’ how 
many pieces each of you have captured. And _ in 
this version, you can forget the numbered 
board. The board now appears on the screen with 
the letters ABCDEFGH across the top, and _ the 
numbers 1 to 8 down the side. You make a move 
simply by entering the co-ordinates of the 
relevant squares (such as E6,C4) instead of the 
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numbers and the computer interprets them to 
make your desired move. 


Before I give you the Listing of the final 
version, here's a printout of part of a game 
played against it. When you see it on _ the 
screen, the dots will be replaced by black 
Squares, and the 'Less than' symbols down’ the 
right hand edge will be replaced by a black and 
white Line. 


ARCDEFGH ABCDEFGH 
8.8. B. Be HJR. BBS 4 
A... Be BEL BOBL 
EB. «Bo & x abe oe 
>» abe at: BR. «Ba .2 


Plo 
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~W.W.W. We HW.W. We WE 
WWW. We @ WoW.W.W. = 


> G4,H5 a 67,66 


om 
Lit 


cr Li Bis ie 


WaW.W.W, = 


0 “i & 
 ™ 


MBC DEP GH 

w tw he Ey EES 
Bede: iat, 
ae aie. ve % 
Es « Ba Be © 


fbb 


(ob 


W.W.WAW. 2 & 
wWaWe. «We? 
W.W,WIW.2 & 


a Weg sy 


MY SWORE it I 
YOUR SCORE IS 1 


ARCDEF GH 

~B.B.H. Be 

Hobe «- w% 
~H.E 


ris 
a8) 
Ti = 
CA ey ha 


> . 
+ a 
> a 
mo No 


MY SCORE I[5 1 
YOUR SCORE I5 1 


ABCDEF GH 
~BwB. BBS 
Bede <a 2% 
e «kts 

Me 2 «Bee 
s wie a We 
WeW.W, 
~W.W.W. We 
WeWeW. 28 
Y Cb6,E4 


~> 


3 
~ 


“SIO CFB Cy fb. 


se 


MY SCORE IS 1 
ARCDEFGH YOUR SCORE IS 1 
~RJER. EB, Be 
Ete Ete oe a 3% 
« 2 fa a & 
Ey aw hae 
» «BB. .We 
We. «We. .2 
~W.WLW.We 
WeWeW. w 8 
Y E6,C4 


ON &U Bel hie 
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ABCDEF GH 


~H. BLK. Re 1 

H.By « #«% 

ee ee Ge Fe a MY SCORE IS 3 
BR. oo. U7 RBA OF YOUR SCORE IS 3 
ie » «AS 2 

We « « «2% 8 

WWW. We? 

WeWeW. 22 8 

7 AS, C4 


And here's’ the final version of our Checkers 
game: 

1 REM CHECKERS 

2 REM VERSION IV 

3 REM PROPER MOVE INPUT 

4 REM PLUS ON-SCREEN SCORING 

5 CLS: 60SUB 9000 

10 Q=0 

15 GOSUB 5000 

20 2=24 

25 IF AtZ)=9 OR A(Z)<1 THEN 100 

50 X=! | 

so IF 2¢71 THEN IF ACZ-X(X))¢O AND A(Z-2kX(X))=0 THEN Q=-X(X) 

60 IF ACZ+X(X})<O AND A(Z+#24X(X))=0 THEN Q=X(X) 

70 IF Q¢20 AND Z+2%Q8 THEN 120 

80 Q=0 

90 IF X¢2 THEN X=X+1:60TO 60 

106 IF 2¢72 THEN Z=Z+1:60T0 25 

110 IF Q=0 THEN 140 

120 A(Z+8)=0 

130 At2+2%Q)=A(2) 

135 C5=CS+1 

ish PRINT 9 392,"MY SCORE 15"CS 

140 Alz)=0 

150 6O05UB 5000 
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155 OT 330 
160 Y=0 

170 Z=INT(RND (0) $49) +24 

180 Y=V+! 

190 IF A(Z)<>1 AND A(Z)<)2 THEN 170 

200 X=! 

210 IF ACZ#X(X))=0 THEN Q=X(X) 

215 IF A(Z+29X(X))<0 AND Q¢>0 AND RND(O)).7 THEN Q=0 
220 IF A(Z)=2 AND A(Z-X(X))=0 THEN Q=-X(X) 

230 IF Q¢>0 THEN 290 

240 IF X¢2 THEN X=X+1:G0T0 210 

260 IF ¥<100 THEN 170 

270 PRINT "YOU WIN" 

280 END 

290 A(Z+0)=A(Z) 

300 AIZ)=0 

310 BOSUB 5000 

330 GOSUB 1000 

340 ACB) =ACA) 

350 ACA)=0 

360 IF ABS(A-B)>7 THEN A(( (A+B) /2))=O:HS=HS#1 
365 IF HS<)0 THEN PRINT 9 422, "YOUR SCORE IS";HS 
370 GOTO 10 

1000 INPUT V$,NS 

1010 FOR U=1 TO 32 

1020 IF ¥$(U)=¥$ THEN A=R(U) 

1030 IF Y$(U)=N$ THEN B=R(U) 

1040 NEXT 

1050 RETURN 

5000 FOR M=24 TO 72 

5005 IF ACM)=1 AND M>23 AND M<28 THEN A(M)=2 
5006 IF A(M)=-1 AND M)69 THEN A(M)=-2 

5010 IF A(M)=1 THEN A(M)=66 

5015 IF A(M)=2 THEN A(M)=75 

5020 IF A(M)=-1 THEN A(N)=87 

5025 IF A(M)=-2 THEN A(M)=35 
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5030 IF A(M)=0 THEN A(N)=32 
5050 NEXT # 

5070 PRINT @ 320," ' 
5080 PRINT 2 44,: 

5090 FOR K=0 10 3 

5100 FOR J=0 TO 3 

5110 PRINT CHR$ (128); CHR$(A(72-J-138K)): 
5120 NEXT J 

5130 PRINT 

5140 FOR J=0 TO 3 

5150 PRINT CHR$(A(S4-J-138K) ) ;CHRS (129): 
5160 NEXT J 

5170 PRINT 

5180 NEXT K 

5200 FOR M=24 TO 72 

5210 IF A(M)=64 THEN A(K)=1 
5215 IF A(M)=75 THEN A(M)=2 
5220 IF A(M)=87 THEN A(M)=-1 
5225 IF A(N)=35 THEN A(M)=-2 
5230 IF A(M)=32 THEN A(M)=0 
5250 NEXT § 

5260 RETURN 

9000 DIM AL2) 

9030 X(1)=-634(2)=-7 

9050 FOR Z=1 TO 82 

9080 A(Z)=9:NEXT 

9085 FOR 7=56 TO 72 

9066 IF 1=47 THEN 7=69 

9067 IF 2=60 THEN 1=43 

9070 A(Z)=1:NEXT 

9075 FOR 7=43 TO 53 

9076 IF Z=47 THEN 7=50 

9080 A(Z}=O:NEXT 

9090 FOR 7=24 TO 40 

9095 IF 2=34 THEN 7=37 

9096 IF Z=28 THEN 7=30 
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9100 A(Z)=-1:NEXT 
9110 A$="MY MOVE" 
9120 B$="YOURS" 

9130 FOR J=72 TO 296 STEP 32 

9140 PRINT 2 J,CHR$ (133): INT(J/32)-1 

9150 NEXT J 

9140 PRINT @ 32, “ABCDEFGH' 
9170 PRINT 2 64, ")PLEASE":PRINT")2STAND®:PRINT® >>>BY" 
9180 DIM R(32),¥$(32) 

9190 FOR T=1 TO 32 

9700 READ X$:READ @ 
9230 R(T)=O: ¥$(T)=X$ 

240 NEXT 
9250 HS=0:CS=0 

9500 RETURN 

9510 DATA "B1",72, "D1", 71, "FI", 70, "HI", 49 
9520 DATA "A2", 64, "C2", 65, "E2", 64, "G2", 63 
9530 DATA "B3",59,"D3",58, "F3",57,°H3", 56 
9540 DATA "Ad", 53, "C4",52, "E4", 51, "G4", 50 
9550 DATA "BS", 46, "D5", 45, "F5", 44, "HS", 43 
9540 DATA "Ad", 40, "Cb", 39, "ES", 38, "GO", 37 
9570 DATA "B7",33, "D7", 32, "F7", 31, "H7", 30 
9580 DATA "AS", 27, "CB", 2, "EQ", 25, "GB", 24 


74 


CHAPTER SEVEN — 
A GAMUT OF GAMES 


The 'lLessons' are now behind you. In this next 
section of the book we have a number of games 
which I am sure you'll enjoy playing. 


Once you have them up and running on_ your 
system, spend a bit of time adding your own 
personal touch to them. Modify them in any way 
you. like. As well, studying the program 
Listings should give a number of additional 
ideas to include in your own programs. 


The games in this section are: 


LAUNCH PAD 
LEAPFROG 
NUMBER CAVALCADE 
ROMTHELLO 
LIFE 
NIMGRAB 
LAS VEGAS HIGH 
SWITCHEROO 
MANCALA 


Good gamepLaying. 
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LAUNCH PAD 


Here's a simple program which fills your TV 
with ‘rocket ships' blasting off up the screen. 
You may well be able to work this” very 
effective display into a game. 


Here's an indication of what it looks Like on 
screen: 


I] 
PFS 
JEN A 
tl 
ifaw 
SKN 
A 
i a F 
FF ENS 
f x \ 


(4 
bed 
ff ENS 
SK 
Fy 
Le, 
rg e yr 
/* 
Fi 
Aaa | 
ZS SENN 
SKN 
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And here's the brief Listing: 


10 REM LAUNCH PAD 

15 DIR A$(S) 

17 CLS 

20 A$(1)=" 4: A" 

50 AS(2)=" TAI" 

A) AS(S)=" //3\K" 

JO AS(4)=" /9\" 

90 Q=INT(RND (0) 25) +1 
110 FOR R=1 TO 4 

130 PRINT TAR(Q);A$(R) 
135 NEXT R 

140 FOR P=1 10 @/3 
150 PRINT 

160 NEXT P 

170 6070 20 
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LEAPFROG 


Here's a game which will test your wits. The 
game begins with a display Like this: 


THAT WAS MOVE 0O 


kk ee 


$$$ $ 
1234567889 


WHICH PIECE TQ MOVE? 


The aim of the game is to end up with the 
asterisks on the Left and the dollar signs’ on 
the right. You can only move into the’ empty 
Space, either by sliding sideways into it, or 
by jumping over one piece (hence the name of 
the game) into the space. 


The aim of the game is to get the pieces 
swapped in the fewest possible moves. You'll 
find it a difficult, frustrating challenge. 


10 REM LEAPFROG 

20 X=-f:M=9 

30 CLS 

90 FOR Q=1 TO M 

100 IF @¢5 THEN A(Q)=ASC("S") 
110 IF @35 THEN A(Q)=ASC("8") 
120 NEXT @ 

130 FOR T=1 TO 400:NEXT T 

140 C=0 

150 X=X4+1 

170 PRINT 2 32,"THAT WAS MOVE “3X 
180 PRINT:PRINT 

200 GOSUR 1000 

210 PRINT: PRINT 
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220 PRINT "YOU HAVE"sCs "CORRECT" 

230 IF C=8 THEN 360 

240 GOSUB 320 

270 GOTO 130 

320 PRINT @ 390, "WHICH PIECE TO MOVE?" 
324 IF INKEY$<3"" THEN 324 

325 AS=INKEYS 

326 IF AS!" OR A$)"9" THEN 325 

327 T=VAL(A$) 

328 PRINT 9 390," " 
330 K=A(T) 

340 A(T) =O: A(H)=K 

350 RETURN 

360 PRINT:PRINT TAB(8);"WELL DONE!" 

370 PRINT:PRINT TAB(4):"YOU SOLVED IT IN*," JUST": X3 "MOVES" 
100¢ PRINT:PRINT 

1010 FOR Z=1 T0 9 

1020 IF ACZ)<¢}0 THEN PRINT CHRS{A(Z))3" "3 
1030 IF A{Z)=0 THEN PRINT ®  "s:H=7 

1040 IF 265 AND AXZ)=ASC("#") THEN C=C+1 
1050 IF 225 AND A{Z)=ASC("$") THEN C=C+! 
1070 NEXT 7 

1080 PRINT:PRINT "1234546789" 
1090 RETURN 


THAT WAS HOME  i.2 
e 4 kt $6  X K Ch 
1 2 tS ch 


YOU HAVE + CORRECT 
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NUMBER CAVALCADE 


In this simple game, you think of a_ number 
between one and 63. The computer then proceeds 
to show you a series of groups of numbers. If 
the number you're thinking of is within a 
particular group, you press the "Y" (for 'yes') 
key. If your number is not on the screen, you 
press the "N" key. 


At the end of the game, the computer will tell 
you the number you had thought of. 


L Sp 7 oe dt 2s ao Ay 
1 21 eee Sto Gee ae ol 


Bo Go 27 39 41 43 40 


47 49 31 SS 35 37 39 


61 4&5 


soo 6 F 10 11 14 15 
Le Ly 22 25 26 2/7 3 
O11 34 co 26 29 42 4s 
46 47 GO Sl 34 SS Se 


deg: | a pace 
Se toa, toch 


N 


45 6 7 12 15 14 158 
20 321 22 24 24 29 oO 
ml 36 37 320 39 44 45 
44 47 SO 1 S34 35 38 


4&1 62 G35 
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“ 
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sek £ 
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36 
43 


14 15 


cae) 


50 


16 17 18 19 20 21 
oo 2b gel atk ee 2G 
20 (1 49 49 50 Sl 
we Wt 9 Go S7 Se 


6] 62 6&3 


43 49 50 51 52 
So SF SAS 


YOUR 


NUMBER WAS 29 


10 REM NUMBER CAVALCADE 
15 X=.5:N=0:605UB 1020 


20 PRINT 
30 PRINT 
40 PRINT 
JQ PRINT 
60 PRINT 
70 GOSUB 
BQ PRINT 
90 PRINT 


"13579 Ef 13 15 17" 
"19 21 23 25 27 29 3" 
"3335 7 39 41 43 45" 
"47 49 31 53 55 37 59" 
"61 63° 

1000 

"2567 10 11 14 15" 
"18 19 22 23 26 27 30° 


100 PRINT “31 34 35 38 39 42 43° 
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110 PRINT 
120 PRINT 
130 GOSURB 
140 PRINT 
150 PRINT 
150 PRINT 
170 PRINT 
180 PRINT 
190 GOSUE 
200 PRINT 
210 PRIAT 


220 PRINT " 


230 PRINT 
240 PRINT 
zJ0 GOSUB 
260 PRINT 
270 PRINT 
260 PRINT 
290 PRINT 
300 PRINT 
400 G05UB 
410 PRINT 
420 FRINT 
430 PRINT 
440 PRINT 
450 PRINT 
460 GOSUB 
470 PRINT 


"86 47 50 SL 54 55 58" 

"S59 62 63" 

1000 

"43567 12 13 14 15" 

"20 21 22 23 28 29 30" 

"S1 36 37 38 39 44 45" 

"46 47 50 31 54 35 3B" 

"61 62 63° 

1600 

"89 10 11 12 13 14 135° 


"24 29 26 27 28 29 30° 
31 40 41 42 43 44 45" 
"46 47 56 37 38 59 60° 


"St 62 63" 

1000 

"16 17 18 19 20 21 22" 
"23 24 29 26 27 28 29° 
"30 31 48 49 50 51 52" 
"53 54 55 56 37 58 39" 
"60 61 62 43" 

1000 

"32 33 34 35 36 37 38" 
"39 40 41 42 43 44 45° 
"46 47 48 49 50 51 52" 


"§3 54°95 56 57 58 59" 
"60 61 62 63" 

1000 

"YOUR NUNBER WAS"; N 


480 GOTO 480 


1000 X=X+X 


1005 GOSUB 1050 
1010 SGUND (2%%/3+2),1 
1020 FOR T= 1 TO SOO:NEXT T 


1030 CLS 


1040 PRINT:PRINT: PRINT 
1050 RETURN 
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1060 IF INKEY$<>"" THEN 1060 

1065 AS=INKEY$ 

1070 IF AS<>"N" AND A$<>"Y" THEN 1065 
1080 IF A$="¥" THEN N=N+X 

1090 RETURN 
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ROMTHELLO 


This major program is based on the board game 
known either as REVERSI or OTHELLO. Invented in 
the Late eighteen hundreds, it is played on an 
ordinary eight by eight board. When played on a 
board, you use pieces which have different 
colors on each side. The game begins with four 
pieces placed on the central Squares. 


From this point on, you move by placing one of 
your pieces next to a computer piece or pieces, 
with another of your pieces further on. When 
that happens, all the computer pieces ‘reverse' 
to become your pieces. 


Here's how it works. Suppose a line of pieces 
Looked Like this: 


OXXXX 


If you decided to put your piece fan O) at the 
end of the Line Like this: 


OXXXXO 


The computer pieces (the X's) would reverse, so 
the Line Looked Like this after your move: 


000000 


The game continues until every square on_ the 
board is filled, or neither player can move. As 
you can imagine from the sample move_ shown 
above, fortunes change swiftly in this game, as 
rows branching off your position, such as_ on 
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the diagonals, can 
move. 


be changed with a 


single 


If you cannot move at any time, you signal this 
to the computer by entering a zero. 


This sample run shows the early stages of one 
game played against the computer: 


| 3 
l 3 
7 
athe rn - 
— 
seat ) “ 


cn ps 


° 
Same 
s 
2 


“I io 
2 3 
s 


=. 

us 

—_ 
e 
a 


omen? 
-4 
= 

oi 
wax 
to 
a 

Tt 
one” 


| Pi 
ts 
e.. a n 
eo 
_ a 
i} $3 
| bees 
aad C] 
é 
dee 
u.) " 
soy 
f ” n 
a 
mn) n ro] 


COMPUTER 


‘ih 


él 


x.) 


85 


& * & 


n = a 1 
r % 
a a n. Ke 
ae ee a 
a a <} 
bona 
“ a . 
n 1 om é) 
" n ° Z 
a it 
& 7 & 
HUI el 
oS ¢ 
2 | 
es 
u « a Fe 
ee eR at 
a Cy 2 xa 
Pee 
« n ad 


fi te 
a 
é& ¥ 


HUPMRN oT 


— 


* 
” 


bod bh 


ay 


CON & 


1 


CORFUTER 


WO OF b oj hie 


ey 


. 
Boos 


COMPUTER 


cow & Of Bb ble 


2 ww & 
-— eo me. oe 
a ee 
De « » 
D &: & & 
a ee 
» : 
ew. « 


ey oe. 
x a Ua] e 


w © 7 


t) a s a 
ee i tg 


ae 7 2g 


86 


hed fo 


ClO Ch pm 


Ped f.J ee 


if 


cs) 


p~2 


f ti bh 


oP 


a] 


COME UTE Fe 


> 


t 
Pe | 


Ya 


int 
. 


ci 


cm 


1 
“4 


mp os 
i oe 


— 


fo“ OL BL bo 


oy 
2 


= Of 


aoe 
ud 


| road 
uJ 


am, 
se 


a 


Co 
~ 


> 


Ror 
J 


ead 
x) 


na “ su 
a ees 
my {} 


HUMAN 


a = a 
a n a 
n " a 
a aa a 
a a 


Crs s 
aoe 
co 


HURLEY 


& / oc 
noon 4 
non 
> » ® 
er 
« os» A 
i) cy y 
Pe 
= 4» 0 
& * & 


1 s < * -— = * P 1 
a SO te Oe a 
£} e bs “Ht - , - Fa! 
a a wg A i og aa 
& we Bh RR RB BR KOS 5b 
i ee ae er ee re f 
£3 — & we Ow we. % =| 
1eta4d&a?7 
CORMFUTEFR li HUNG &) 


And here's the Listing of ROMTHELLO: 


10 REM ROMTHELLO 
20 GOTO 740 


SQ PRINT @ 384, "RY HOVE” 

40 S=2: T=X:H=0 

uQ FOR A=2 10 9:FOR B=2 TO 9 
60 IF A(A,B)<246 THEN 210 


70 Q=0 
80 FOR C=-1 TO {:FOR D=-1 10 1 
90 K=0:F=A:6=B 


100 IF ACF+C,6+D)<55 THEN 130 

110 K=K+i:F=F+C: 6=6+D 

120 GOTO 100 

130 IF A(F+Hl,G+D)<>T THEN 150 

140 Q=0+K 

150 NEXT DsNEXT C 

160 IF A=2 OR A=9 OR B=2 OR B=9 THEN Q=@82 

170 IF A=3 OR A=8 OR B=3 OR B=B THEN Q=0/2 

180 IF (A=2 OR A=9) AND (B=3 OR B=8) THEN Q=0/2:60TO 190 
185 IF (A=3 OR A=8) AND (B=2 OR B=9) THEN @=@/2 
190 IF Q¢H OR (RND(Q)<.3 AND @=H) THEN 210 

200 H=Q:M=A:N=B 
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210 NEXT BsNEXT A 

220 IF H=0 AND R=0 THEN 690 

250 IF H=0 THEN 250 

240 GOSUB 58t 

Zu) GOSUB 370 

200 PRINT @ 384," : 

26) PRINT @ 354, "ENTER YOUR MOVE" 
270 PRINT: INPUT R 

279 PRINT @ 354, * : 
286 5=X:T=Z 

290 IF R=0 THEN 350 

300 IF R«i1 OR R>B8 THEN 260 

510 R=R+i1 

320 M=INT(R/10) 

330 N=R-1038 

340 GOSUB 580 

390 GOSUB 370 

360 GOTO 30 

370 REN PRINT BOARD 

380 C=0:H=0 

390 SOUND RND(0) 30,1 

395 SOUND RND(0) $30, 1 

400 PRINT 2 30," 12345 67 8" 
450 FOR B=2 TO 9:PRINT B-is3" °3 
440 FOR D=2 TO 9 

470 PRINT CHRS(A(B,D))3" "3 

480 IF A{B,D)=X THEN C=C+1 

490 IF A(B,D)=Z THEN H=H+l 

g0Q NEXT D 

S10 PRINT B-1 

uz) NEXT B 

go PRINT ” 1234567 8" 
240 PRINT 

so0 PRINT 2 480,"COMPUTER "3C;" HUMAN "3H 
370 RETURN 

390 FOR C=-1 TO i:FOR D=-1 70 1 
390 F=N:6=N 


89 


_ G0 IF A(F#C,64D)¢S THEN 630 
610 F=F+C:6=G+4D 
620 GOTO 400 
430 IF A(FHC,G+D) <> T THEN 670 
640 AIF,6)=7 
650 IF M=F AND N=6 THEN 470 
b4) F=F-C:G=6-D:60T0 640 
470 NEXT DiNEXT C 
680 RETURN 
490 GOSUB 370 
700 1F COH THEN PRINT "I’M THE CHANP!* 
710 IF HOC THEN PRINT "YOU'RE THE CHAMP” 
720 IF H=C THEN PRINT "IT'S A DRAW" 
730 END 
740 CLS 
750 X=89:7=48 
740 DIN A(10, 10) 
770 FOR B=1 TO 10:FOR C=1 10 10 
780 IF Bé}1 AND CO>1 AND BC}10 AND C(10 THEN A(B,C)=46 
790 NEXT CINEXT B 
BOO ACS, 5)=X:Atb, b)=¥ 
B10 Al, S)=2:A(5, b)=7 
870 F=0 
830 GOSUB 370 
840 GOTO 30 
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LIFE 


There are some 'classic' computer programs, 
ones which found widespread acceptance’ the 
moment they were announced. In the classics 
category JI: would place HUNT THE WUMPUS, ELIZA 
and LIFE. 


LIFE was invented by John Conway, of Cambridge 
University, Late in 1970. The program simulates 
the birth, death and growth of cells in a 
closed colony. Rather than breeding 
indiscriminately Like fruit flies until all 
available space and food iS consumed, the 
entities within the colonies of LIFE proceed in 
a most orderly fashion. 


The entities Live on a grid (measuring 15 by 
15, in this case) in accordance with the 
following rules devised by Mr Conway: 


~ every cell has eight neighbours, and the 
state of these eight determines the fate of 
that cell in the next generation 


- if a cell has two, or three, neighbours 
(no more, no tLess) it will survive into the 
next generation 


- if there are three surrounding cells, 
and the place on the grid being checked is 
empty, a new cell will be born in that cell in 
the next generation 


- if there are four or more’ neighbours, 


the cell will not survive to the next 
generation 
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With the aid of these simple rules, some very 
startling colony patterns evolve. Some die off 
very quickly, others settle down into a single 
shape, or into two or three shapes that cycle 
in subsequent generations. 


Here are ae few generations from one run of 
CONWAY'S COLONY, as we've called our version of 
LIFE: 


mers 800s cmos emnee Benes esper eosem ennte Pe ee ee ee ee ey 


GENERATION 1] 


K x xX X x K K kK K 

x OX K * K OX K 
KX K Kk MX K x Xx 

K K x x K x Xx * 

K K X K xX x XK 

K XK x KX X x OK 
x x OX x xX 

x x Ox K OX x * K K 

Kk ¥ K K xX xX K xX 
Kk kX K K x x OR XK 

* KX XK K K XK K K xX K 

« x X * K Kk x 
K KX K XK xk xX 
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GENERATION 4 
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SENERATION 


: 
x x Xx 
% K x 
x x 
x x ¥ 


= 


You'LL see in the Last generation there are 
three Lines each of three cells. These are 
called 'traffic Lights' because they go from: 


x * 


* to * * * to * to * * * and so on... 
xx of 


You can see the first traffic Light fas * * *) 
at the bottom of generation five. The groups of 
four are stable units, which stay as they are 
from generation to generation, unless’ other 
cells touch the group from the outside. There 
are a number of shapes such as’ these which 
often occur in LIFE programs. You're Likely to 
become familiar with them as you continue to 
run the program. 


As you can see (Lines 80 to 140) the original 
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colony is generated at random. Once you've 
become familiar with this version of the 
program, you might Like to try and rewrite it 
so that you can enter your own colony. You'll 
find when you do this that a balanced pattern, 
such as a couple of diamonds, is more Likely to 
evolve in an interesting way than are the 
purely random colonies. 


10 REM CONWAY*S COLONY 
20 CLS 


30 COLOR 2,1 
50 DIM A(15, 15) 

60 DIM B15, 15) 

70 Gz! 

80 FOR X=2 TO 14 

90 FOR Y=2 TO 14 

110 IF RND(O)}.4 THEN ACK, Y)=1 
120 BIX, Y)=AUX, ¥) 

130 NEXT ¥ 
140 NEXT X 
150 GOSUB 330 
160 G=6+! 

170 FOR X=2 T 
180 FOR Y=2 T 
190 C=0 

200 IF ACK-1,Y-1)=1 THEN C=C+! 

210 IF ACK-1,Y)=1 THEN C=C+! 

220 IF A(X-1,¥+l)=1 THEN C=C+! 

230 IF A(X,Y-1)=1 THEN C=C+! 

240 IF ACK, Y+l)=1 THEN C=C#! 

250 IF A(K#1,Y-1)=1 THEN C=C+1 

260 IF A(K#1,Y)=1 THEN C=C#H 

270 IF ACX+1,Y#l)=1 THEN C=Cel 

280 IF A(X,YJ=1 AND CC>3 AND C&>2 THEN B(X,Y)=0 
290 IF A(X,Y)=0 AND C=3 THEN B(x, Y)=I 

300 NEXT ¥ 


G 14 
0 14 
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310 NEXT X 
320 GOTO 150 

330 PRINT 2 9, "GENERATION "36 
340 SOUND (6/241) ,2 

350 PRINT:PRINT " "3 

390 FOR X=2 TO 14 

400 FOR Y=2 TO 14 

410 AUX, Y)=BiX, Y) 

20 IF A(X,¥)=1 THEN PRINT "* "s ELSE PRINT" "3 
440 NEXT Y 

450 PRINT:PRINT " °; 
460 NEXT X 

470 RETURN 
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NIMGRAB 


This iS a game which seems easy at first, but 
is the very devil to play and win. The program 
was prepared for this book by Glen PringLe. 


You and the wily computer take it in turns’ to 
take objects away from the ones on the screen. 
There is a Limit to how many you can take away 
each move. This Limit does not change within a 
game, although it changes from round to round. 
The winner is the person who forces the other 
player to remove the Last object. 


Once you see it in action, you'LlL understand 
how to play it. Then you can start working’ on 
perfecting a method of actually beating the 
computer. 


19 REM NINGRAB 

20 CLS 

30 M=O:E=0: Z=RND(8) +16 

40 IF-2kINT(2Z/2)=2 THEN Z=Z+1 

50 H=3+RND (2) 

60 PRINT “THE NAXINUM YOU CAN GRAB IS*H 
70 GOSUB 270 

80 IF £0 THEN PRINT "YOU TOOK"E", AND I TOOK"G 
90 FOR K=1 TO 2 

100 PRINT Ks: IF RND(10)>8 THEN PRINT 
110 NEXT K 

120 6OSUR 2? 

130 PRINT “AND HOW MANY WILL YOU GRAB?* 
135 PS=INKEY$ 

140 E=VAL(INKEYS) 

150 IF Ext OR £)H GR E>Z THEN 140 

160 PRINT:PRINT"SO YOU WANT TO GRAB"E 
170 2=Z-E 
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180 GOSUB 270 
190 IF Z<1 THEN GOTO 320 

200 Q=2-1-INT((Z-1) /(H#L) ) 8 (HHL) -INT(RND (2) ) FIN (RND (2) ) 

210 IF Q<1 OR @H THEN 200 

220 GOSUB 270 

230 1=1-@ 

240 IF 2¢1 THEN PRINT"! GRABBED THE LAST ONE SO YOU WIN! !":END 
250 BOSUB 270 

240 GOTO 40 

270 PRINT 

OBO PRINT "SHSOLESHSESESPLESECE TERE ESaNES 

290 PRINT 

300 FOR O=1 TO SOO:NEYT 0 

310 RETURN 

320 PRINT "YOU GRABBED THE LAST ONE * 

330 PRINT ,°SO I WIN'!":FOR Z=1 TO SOO:NEXT 2 

340 SOUND 16,3:SOUND 16,2:SOUND 13,4:SQUND 18,2:SOUND 14,5 

350 SOUND 13, 6: END 
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LAS VEGAS HIGH 


Here's a slot machine program for you to run. 
You need only decide how much you'll bet before 
'puLling the handle’ on the machine, and _ the 
reels will whirl away. 


Your winnings, as you'd expect, are related to 
the relative chances of the various 
combinations coming up. The computer keeps up 
the chatter as the game, and your wealth (or 
poverty) unfold. 


The program, prepared for this book by Glen 
Pringle, leads you through the responses 
required from you. 


10 REM LAS VEGAS HIGH 

20 GOSUB 1110 sREM INITIALISE 

30 GOSUB 870 :REM PLAYER INPUT 

40 GOSUB 520 :REM OPERATE SLOT MACHINE 
vO IF CASH«1 THEN 90 

60 IF CASH>2500 THEN 290 

70 BOTO 30 

80 REM thaat 

70 REF BROKE 

100 REM saans 

110 GOSUB 410 

120 PRINT "THAT’S THE END OF THE LINE,” 
130 PRINT "QOH ONCE MIGHTY GAMBLER..." 
140 GOSUB 410 

130 PRINT "YOU’RE STONE, FLAT BROKE!" 
160 GOSUB 410 

170 PRINT "PRESS ’Y’ IF YOU'D LIKE 10° 
180 PRINT "HAVE ANOTHER 60 AT BREAKING" 
190 PRINT *!°!'! LAS VEGAS HIGH !titt* 
200 PRINT "(OR PRESS °N’ IF YOU WISH TO":PRINT , “LEAVE)° 
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210 AS=INKEY$ 

220 IF AS<>"¥" AND AS<>"N" THEN 210 

230 IF Ag="¥" THEN RUN 

240 PRINT:PRINT "OK, PUNTER..." 

200 GOSUB 410 

260 PRINT "THANKS FOR THE GAME!” 

270 END 

280 REN SSIRaTAEEaRTTTS 

290 REM BROKE THE BANK 

300 REM CERETRT STITT 

310 G05UB 410 

320 PRINT "WELL DONE, GAMBLER!!" 

350 GOSUB 410 

340 PRINT "YOUVE REACHED OUR HOUSE LIMIT’ 
350 PRINT "SO WE’LL HAVE TO THROW YOU OUT 
360 PRINT "PEOPLE WITH LUCK LIKE YOURS GIVE" 
380 PRINT "OUR CASING A BAD NAHE....... ‘ 
390 GOTO 160 

400 REM Tang 

410 REN DELAY 

470 REM cane 

430 FOR F=i TO 1000:NEXT P 

440 PRINTS PRINT 

450 RETURN 

460 REM S9seeersy 

470 REN DELAY TWO 

486 REM caneggaat 

49) FOR P=] TO 1000:NEXT P 

J0d RETURN 

GLO REN MSRRaCT Aa aeT Tea egy 

520 REN OPERATE SLOT MACHINE 

JOO REN SXRATTT RATATAT TTT 

340 CLS 

30 GOSUB 410 


40 PRINT Sf EE eee eae: anes hE 
] 


QO PRINT " 4°; 


c 
J 
4 
J 
c 
w 
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080 
090 
600 
619 
620 
630 
640 
650 
460 
§70 
480) 
69) 
700 
710 
720 
730 
740 
7350 
760 
75 
779 
790 
790 
Bd 
810 
R20 
B30 
840 
850 
360 
870 
880 
B90 
900 
710 
920 


FOR M=1 TO 3 

BOSUB 440 

A=RND( 44) 

IF AC2 THEN PRINT A$(4)3:C(M)=1 

IF AYL AND AC& THEN PRINT A$(3)33C(M)=2 

IF ADS AND ACI2 THEN PRINT AS(1)s:C(H)=3 

IF AD11 AND AC20 THEN PRINT AS(2);:C(M)=4 

IF AD19 AND AC3L THEN PRINT AS(5)33C(M)=5 

IF AY30 THEN PRINT A$(4)33C(M)=6 

PRINT “#"::SOUND 31,1 

NEXT M 

GOSUR 410 

WINEO 

IF C(L)4C(2)4C(3)=3 THEN 1220 

IF C(f)=C(2) AND C(3)=C(2) AND C(2)=2 THEN 1240 

IF C(t)=C(2) AND C(3)=C(2) AND CCL)C>1 AND C(2)<93 THEN 1250 
IF C(1)=C(2) OR C(L)=C(3) OR C(2)=C(3) THEN 1240 

IF €(3}=2 THENPRINT"A BELL AT THE END IS A BONUS! ":WIN=WIN+. 6 
IF C(1)=3 AND C(3)=3 THEN PRINT“AN APPLE AT EACH END IS G600D" 
IF C(1)=3 AND C(3)=3 THEN WIN=WIN+. 5 

IF C(1)=4 AND C(2)=3 AND C(1)=4 THEN GOSUB 1270:WIN=WIN+. 4 
GOSUE 410 

WIN=INT (WINSBET) 

IF WINS THEN PRINT “AND YOU’ VE WON"WIN"!*:CASHSCASH#WIN 

IF WIN=O0 THEN PRINT “AND YOUVE LOST $*BET:CASH=CASH-BET 
GOSUB 410 

IF CASH)O THEN PRINT "SO NOW YOU HAVE $*CASH 

GOTO 440 

REM 

REN teeaasgeggy 

REN PLAYER INPUT 

REM Saaeeaengiat 

CLS 

GOSUB 410 

IF CASH(300 THEN PRINT "HI THERE, GAMBLER!" 

IF CASH)299ANDCASH(400 THEN PRINT "YOU'RE DOING WELL TONIGHT” 
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930 IF CASH)5S99 AND CASH<900 THEN PRINT*LADY LUCK HAS CERTAINLY"s 
935 IF CASH)S99 AND CASH(900 THEN PRINT" SMILED ON YOU!" 

940 IF CASH>B99 AND CASH(1200 THEN PRINT "THE FATES ARE BEING"; 
945 IF CASH)899 AND CASH(1200 THEN PRINT " EXTREMELY KIND" 

950 IFCASH)1199 THENPRINT*IT IS SO GOOD TO SEE AN EXPERT AT WORK" 
940 BOSUB 470 

970 PRINT:PRINT "YOU HAVE $"CASH 

980 PRINT: INPUT "HOW MUCH DO YOU WANT TO BET“;BET 

990 IF BET}CASH THEN PRINT "YOU AIN'T GOT THAT MUCH!":G0TO 980 
1000 GOSUB 410 

1010 PRINT "OK, SIR, $*BET"IT IS!" 

1020 BOSUB 410 

1030 PRINT "PRESS THE SPACE BAR TO PLAY” 

1040 IF INKEY$<)" " THEN 1040 

1050 FOR T=1 TO 40 

1040 PRINT TAR(T/2);"#48eee8 STAND BY vaegegee 

1070 PRINT 

1080 NEXT T 

1090 RETURN 

1110 REM INITIALISE 

1130 CLS 

1140 DIM A$(4) (4) 

1150 CASH=250 

{140 FOR B=1 TO 4 

1170 READ A$(E) 

{180 NEXT B 

1190 RETURN 

1200 DATA “SAPPLES", "#CHERRY®", "SBELLE", "! ‘BAR! !" 

1210 DATA "<<LEMONS)", *CCPLUN]I" 

1220 PRINT*THREE BARS!!! ":GOSUB410:PRINT*THAT’S JACKPOT STYLE! !" 
1230 WIN=WIN#+9:G0TO 750 

1240 PRINT "THREE BELLS!!! ":WIN=WIN#3,9:G070 750 

1250 PRINT "THREE OF A KIND": WIN=WIN#3.5:G0T0 750 

1260 PRINT ">> A PAIR <<":WINEWIN+, 7:G0TD 750 

1270 PRINT “THAT OLD ’CHERRY,BELL, CHERRY’ * 

1280 PRINT "COMBINATION IS ONE OF MY FAVORITES! ":RETURN 
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SWITCHEROO 


In Switcheroo, you're presented with the digits 
1 to 9 arranged in a random order. You have to 
get them into the 123456789 order in as few 
moves as possible. 


You enter your moves as numbers, and _ the 
computer performs a ‘'switcheroo' using’ the 
number you've entered. The program was prepared 
for this book by Glen Pringle. 


10 REM SWITCHEROO 

20 CL5:B=B+! 

30 PRINT:PRINT"PLEASE STAND BY..." 
40 GOSUB 100 

yQ GOSUB 220 

60 IF A$="123456789" THEN 390 
70 M=H+! 

80 GOTO 50 

90 END 

100 M=1:X=0 

110 Ag="" 

120 FOR T=1 10 9 

130 L=RND(9) +48 

140 =] 

150 IF MID$(A$,Q, 1)=CHRS(L) THEN 130 
160 IF Q<T THEN Q=0+1:6070 150 
170 A$=A$+CHR$ (L) 

180 PRINT A$ 

190 PRINT:SOUND 1,1 

200 NEXT T 

210 RETURN 

220 REM PRINT QUT 

230 IF M>1 THEN 2460 ELSE CLS 
240 PRINT:PRINT: PRINT 

200 PRINT "MOVE NUNBER*H 
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260 PRINT@107,M 
270 PRINT2256,A$:SOUND 31,1 

280 PRINT:PRINT*WHICH NUMBER TO SWITCHEROO?" 
290 IF INKEY$ <>"" THEN 290 

300 C$=INKEY$ 

310 R=VALICS) 

320 IF R¢1 OR RYB THEN 300 

330 BS="" 

340 FOR T=9 TO R STEP -1 

350 BS=BS+HID$ (A$, T, 1) 

360 NEXT T 

370 AS=LEFTS(A$,R-1) #B$ 

380 RETURN 

390 PRINT: PRINT: PRINT 

400 PRINT A$ 

410 PRINT:PRINT: PRINT 

420 PRINT*YOU DID IT, CHAMP!" 

430 PRINT:PRINT"AND IT TOOK JUST"M*MOVES...° 
435 IF B=! THEN H=H 

440 IF M(H THEN H=N 

450 PRINT "LOW SCORE-"H 

440 FOR I=1 TO 3000:NEXT 

470 GOTO 20 
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MANCALA 


MANCALA is one of the series of 'pebble-in-pits' 
games often called names Like OWARI, AWARI and 
KALAH. The game is played from Africa to the 
Philippines, and now moves into your home, via 
a very clever computer opponent. 


As you can see from the sample game _ which 
follows this introduction, the game begins with 
six 'pits' (the Letters A to F and L to 6G) 
facing each player. Your pits are those from L 
to G. Each pit contains three seeds at the 
beginning of the game. Choosing any pit on your 
side, you pick up all the seeds from it, and 
then proceed to move in a clockwise direction, 
sowing a seed in each pit as you pass it. You 
do not sow any seeds in the pits at each end of 
the board, the ones which start off as zeroes. 


If your final seed Lands opposite an empty pit, 
then all the seeds in the pit you've landed in 
become yours, and are transferred to your 
"home'. Your home is the zero to the left of 
the board, the computer's home is the zero to 
the right. 


The game continues until either’ side is 
completely empty, so the player cannot move. At 
this point, the player with the largest number 
of seeds in his or her home is the winner. 


The computer plays well in this game, but with 


practice you'Ll Learn to defeat it. Just don't 
expect too many victories in the early stages. 
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Here's one game against the program: 
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And this is how it ended: 
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THAT? S THE END OF THE GAME 
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MY SCORE? 19 se % YOUR SCORE 
YOU" RE THE WINNER! 


And here's the Listing of MANCALA: 


10 REM MANCALA 

13 REM SHOWING STRUCTURED 

16 REM PROGRAMMING TECHNIQUES 
20 GOSUB 930:REM INITIALISE 

30 GOSUB 770:REM PRINT BOARD 
40 FOR P=1 TO SO0:NEXT PsREM DELAY 
30 GOSUB 140:REM COMPUTER MOVE 
60 GOSUB 770:REM PRINT BOARD 
70 GOSUB 620:REN HUMAN MOVE 

80 CW=0:HW=0 

90 FOR C=1 TO 12 

100 IF C7 THEN CW=CW+A(C) 

110 IF C76 THEN HW=HW+A(C) 

120 NEXT C 

130 IF CW=0 OR HW=0 THEN 510 
140 GOTO 30 

150 REM Seaeegggegggrggy 

160 REM COMPUTER MOVE 

170 SH=0:C=0 
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190 C=C + 1 
190 IF A(C)=0 THEN 180 

200 Z=C + AIC) 

210 IF 2312 THEN 2=Z - 12 

215 FLAG=0 

220 IF Z2>& THEN IF A(Z-6)<>0 AND A(Z)=0 THEN FLAG=! 
225 IF FLAG=1 THEN IF A(Z-6)>6M THEN GH=C 

227 FLAG=0 

230 IF 2¢7 THEN IF A(Z7+6)<)0 AND A(Z)=0 THEN FLAG=1 
235 IF FLAB={ THEN IF A(Z+6)>6M THEN GN=C 

240 IF C¢& THEN 180 

250 IF GM=0 THEN 370 

2460 C=GM 

270 PRINT 2 34,"I°LL MOVE FROM "sCHR$(44+#C)," " 

272 SOUND RND(O)%20+1,3:SOUND RND(0)#20+1,1:SOUND 5,2 
275 PRINT @ 34," i 3 

280 FOR Z=C TO C+A(C) 

290 IF 2342 THEN A{2-12)=A(Z-12) +1 

300 IF 2¢13 THEN A(Z)=AiZ)+1 

310 NEXT 2 

320 Z=C+A(C)-1:1F 212 THEN 7=2~12 

330 A(C)=0 

340 B(2)=B(2) +A (13~Z) A (13-2) =0 

350 RETURN 

360 RENSESERETAN EE 

370 REM NON-SCORE MOVE 

380 W=0 

390 WW + 1 

400 C=INT{RND(O) 44) +1 

410 IF ACC) <> 0 THEN 440 

420 IF WC20 THEN 390 

430 GOTO 510 

440 PRINT 2 34,"I°LL MOVE FROM “sCHR$(64+C) 

442 SOUND 4,1:SOUND 3,1:SOUND RND(O)$20+1,3:SOUND RND(0)420+1, 1 
445 PRINT 2 34," a 

450 FOR Z= C TO C+A(C) 

440 IF 7¢13 THEN A(Z)=A(Z) +1 
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47() 
480 
490 
Jd 
10 
ve 

30 
340 
vd 

350 
u/Q 
980) 
600 
610 
620 
430 
639 
640 
690 
64) 
470 
680 
699 
700 
710 
ia 

730 
74) 
730 
750 
770 
780 
800 
B10 
G20 
830 


IF 2312 THEN A(Z-4)=A(2-4) +1 
NEXT 7 

A(C)=0:G60T0 350 

REN Aengegeeegeatt 

REN END OF GAME 

GOSUB 770 

FRINT 9 34, "THAT'S THE END OF THE GAME" 

SOUND RND(0)$20,1:SOUND RND(0)%20, 2 

IF Bi1)>Bi2) THEN PRINT 2 480, "YOU'RE THE WINNER!" 
IF B(1)<B(2) THEN PRINT @ 490, °1°M THE WINNER!" 

IF Bi1)=B(2) THEN PRINT 2 480, "IT LOOKS LIKE A DRAW!" 
PRINT 2 416,"MY SCORE>"sB(2)s" ";B(1);"<YOUR SCORE" 
GOTO 600 

REMESSESECEE NEE 

REM HUNAN MOVE 

PRINT @ 34, "WHICH PIT TO START WITH?":PRINT @ 64," " 
INPUT A$:PRINT 2 34," as 
PRINT @ 96," "":BEASC.(A$)-64 

IF BX7 OR B12 THEN 630 

CO=B:7=B+A(B):IF 7312 THEN Z=7-12 

M=A(T) 

FOR 7=B TO BtA‘B) 

IF 212 THEN A(Z-12)=A(2-12) +1 

IF 2413 THEN A(Z)=A(Z) 4! 

NEXT 7 

7=R+A(B)-1:1F 2312 THEN 2=2-12 

IF M=0 THEN B(L)=B(1)+A(13-Z):A(13-Z)=0 

A(cO)=0 

RETURN 

RENGUUSEATENETE 

REN PRINT BOARD 

PRINT 2128," A BC DE F':PRINT* '°s 

FOR C=1 10 4 

PRINT AIC): 

NEXT C 

PRINT:PRINT B(1):" "B(2)sPRINT " "s 
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840 FOR C=12 TO 7 STEP -1 
B50 PRINT ACC): 

§60 NEXT C 

B70 PRINT:PRINT " £ K J I H 6° 

880 COPY:REM DELETE THIS LINE IF YOU DON’T WANT PRINTER COPY 
890 RETURN 

900 PRINT 2 34,"I NOVE FRON "sCHR$(44+6N) 

910 C=6M 

920 RENSEEIESTARTLTELS 

930 REM INITIALISE 

940 CLS 

960 DIM A(12),B(12) 

970 FOR C=1 TO 12 

980 A(C)=3 

990 NEXT C 

1000 RETURN 


If you look back to the first few Lines of this 
program, you'LL see that it uses structured 
programming techniques as outlined on pages one 
to four, in the TIC TAC TOE program. 
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APPENDICES 


ONE - WHAT IS A COMPUTER? 
TWO - GLOSSARY OF TERMS 
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APPENDIX ONE - WHAT IS A COMPUTER 


You don't need to know what a computer is, or 
how it works, to make use of it and get 
pleasure out of using it. In much the same way, 
you don't need to able to repair a car in order 
to drive it. However, having some knowledge of 
the parts of the machine you're using — whether 
it's a car, a video recorder or a computer - is 
Likely to add to your pleasure in using it. 


CONTROL 


ALU 







OUTPUT 





MEMORY 


This diagram shows the five basic parts of a 
computer. We'LL start by Looking at the lLeft- 
hand box, the INPUT. This refers to any means 
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which exist for getting information into’ the 
computer from the outside world. It can be a 
keyboard, a microphone (Cif the computer is 
equipped to understand speech), or the computer 
Can read the contents of a magnetic disk, 
magnetic tape (Like the cassettes your computer 
uses) or from punched tape. 


The next box across is the heart of the system, 
the Arithmetic Logic Unit, or ALU for’. short. 
This carries out the mathematical work 
required, and makes decisions. 


Above it you can see the CONTROL UNIT which 
controls the flow of information through the 
computer. Below the ALU in our diagram is the 
memory which holds not only the program and the 
results of computations while the program is 
running, but also the 'intelligence' of the 
machine. Here are the intructions the computer 
needs in order to be able to do such things as 
control the TV screen and interpret the word 
SOUND in a program in order to make a noise. 
We'LL be looking at memory in a Little more 
detail shortly. 


On the right-hand side of the diagram is_ the 
OUTPUT. This, as you've probably realised, 
refers to any means by which the result of the 
computer's deliberations is fed to the world 
outside the machine. The output can be via a 
number of things such as a TV screen, a printer 
or a speech unit. 


In many computers today, the CONTROL UNIT and 
the ALU come together on a single chip, called 
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a CENTRAL PROCESSING UNIT, or CPU. This means 
that only input, output and a power supply have 
to be added to turn the CPU into a computer. 


So, in its most primitive form, the computer is 
a device which operates upon numbers under the 
control of other numbers. The computer has a 
central processing unit which actually carries 
out the numerical operations, a memory where a 
mixture of instructions and data is stored, and 
some way of getting information in from the 
outside world, and of sending results out. 


Computers contain two sorts of memory. The 
first kind is fixed when you buy the computer. 
This sort of memory is called ‘Read Only 
Memory' because all the computer can do is read 
it and act in accordance with the instructions 
written in this memory area. It is called ROM 
for short. 


As well as ROM, your computer (in common with 
all other computers) has memory which can _ be 
modified when the computer is running. This 
memory — called 'Random Access Memory' (or RAM) 
- is the place where the program you type in, 
or load in from a tape, resides. RAM contents 
are Lost (the computer, in effect, ‘'forgets') 
when the power is turned off. 


So, ROM is fixed memory, which tells’ the 
computer how to do what it needs to do_ when 
running (such as how to read your depressions 
on the keyboard, and how to add numbers 
together), and RAM is changeable memory which 
holds the program you are currently running and 
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the intermediate results of that program. 


When you program your computer, you do so in 
the computer language known as BASIC. The 
advantage of BASIC to human beings is that it 
is reasonably Like English, so is fairly easy 
to work with. However, the computer does not 
understand BASIC. It only understands, and 
thinks in, numbers. So, within the ROM is the 
means by which the computer changes a_ BASIC 
program Line, such as A = RND(O)*20, into a 
sequence of numbers it can understand. 


As well as the kind of ‘built in' memory we've 
been talking about, there is external memory, 
which is often called mass storage, with the 
peripherals used to store this memory being 
known as MASS STORAGE DEVICES (or MSD). The 
cheapest MSD, the one you probably use _ with 
your computer, is the domestic cassette 
recorder. Although tape is cheap, it is slow 
and 'sequential', that is, you have to search 
through a tape item by item in order to _ find 
the one you want. 


The other most common sort of MSDs are those in 
the disk family. FLOPPY DISKS are flexible 
disks, about the size of a 45 rpm _ record, 
coated with magnetic material. They are 
permanently sealed in Square envelopes within 
which they are free to rotate. The disks are 
used in conjuction with 'floppy disk drives’ 
which contain magnetic heads which can detect 
and create magnetic patterns on the disks. 


HARD DISKS, which are Larger and more expensive 
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than floppy ones, can hold much more 
information than flappias. A typical floppy can 
hold betwean.1G0K and 806K. Hard disks can hold 
‘fpaundmeds of thousands of kilobytes of 
information. 
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APPENDIX TWO - GLOSSARY OF TERMS 


Accumulator — part of the computer's Logic unit 
which stores the intermediate results of 
computations 


Address -— a number which refers to a Location, 
generally in the computer's memory, where 
information is stored 


Algorithm — the sequence of steps used to solve 
a problem 


Alphanumeric - generally used to describe a 
keyboard, and signifying that the keyboard has 
alphabetical and numerical keys. A _ numeric 
keypad, by contrast, only has keys for the 
digits one to nine, with some additional keys 
for arithmetic operations, much like a 
calculator 


APL - this stands for Automatic Programming 
Language, a language developed by Iverson in 
the early 1960s, which supports a Large set of 
operators and data structures. It uses a non- 
standard set of characters 


Application software — these are programs which 
are tailored for a specific task, such as word 
processing, or to handle mailing Lists 


ASCII - stands for American Standard Code for 
Information Exchange. This iS an almost 
universal code for letters, numbers and 
Symbols, which has a number between 0 and 255 
assigned to each of these, such as 65 for the 
Letter A 
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Assembler - this iS a program which converts 
another program written in an assembly Language 
(which is a computer program in which a single 
instruction, such as ADD, converts into a 
single instruction for the computer) into the 
Language the computer uses directly 


BASIC - stands for Beginner's’ All-purpose 
symbolic Instruction Code, the most common 
Language used on microcomputers. It iS easy to 
Learn, with many of its statements being very 
close to English 


Baud - a measure of the speed of transfer of 
data. It generally stands for the number of 
bits (discrete units of information) per second 


Benchmark - a test which is used to measure 
some aspect ofthe performance of a computer, 
which can be compared to the result of running 
a similar test on a different computer 


Binary - a system of counting in which there 
are only two symbols, O and 1 (as opposed to 
the ordinary decimal system, in which there are 
ten symbols, 0O, 1, 2, 3, 4, 5, 6, 7, 8 and 9). 
Your computer 'thinks' in binary 


Bit - an abbreviation of ‘binary digit', the 
smallest discrete unit the computer can 
understand, and having a value of O or 1 


Boolean Algebra - the algebra of decision— 
making and Logic, developed by English 
mathematician George Boole, and at the heart of 
your computer's ability to make decisions 
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Bootstrap - a program, run into the computer 
when it is first turned on, which puts_ the 
computer into the state where it can accept and 
understand other programs 


Buffer - a storage mechanism which holds’ input 
from a device such as keyboard, then releases 
it at a rate which the computer dictates 


Bug —- an error in a program 


Bus — a group of electrical connections used to 
Link a computer with an ancillary device, or 
another computer 


Byte - the smallest group of bits (see bit) 
which makes up a computer word. Generally a 
computer is descibed as being ‘eight bit' or 
'16 bit', meaning the word consists of a 
combination of eight or sixteen zeroes or ones 


Central Processing Unit (CPU) - the heart of 
the computer, where arithmetic, logic and 
control functions are carried out 


Character code - the number in ASCII (see 
ASCII) which refers to a particular symbol, 
such as 32 for a space and 65 for the Letter 
TA! 


COBOL - stands for Common Business Orientated 
Language, a standard programming’ Language, 
close to English, which is used primarily for 
business 


Compiler — a program which transLates a program 
written ina high Level (human-Like) Language 
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into a machine Language which the computer’ is 
able to understand directLy 


Concatenate - to add ladding two strings 
together is known as 'concatenation') 


CP/M - these initials stand for Control 
Program/Microcomputer, an almost universal disk 
operating system developed and marketing by 
Digital Research, Pacific Grove, California 


Data — a general term for information processed 
by a computer 


Database — a collection of data, organised to 
permit rapid access by computer 


Debug - to remove bugs (errors) from a program 


Disk - a magnetic storage medium (further 
described as a 'hard disk', ‘floppy disk' or 
even 'floppy') used to store computer 


information and programs. The disks’ resemble, 
to a Limited extent, 45 rpm sound records, and 
are generally eight, five and a quarter, or 
three anda half inches in diameter. Smaller 


'microdisks' are also available for some 
systems 
Documentation -— the written instructions’~ and 


explanations which accompany a program 


DOS - stands for Disk Operating System (and 
generally pronounced '‘'doss'), the versatile 
program which aLlowS a computer to control a 
disk system 
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Dot-matrix printer - a printer which forms’ the 
Letters and symbols by a collection of dots, 
usually on an eight by eight, or seven by five, 
grid 


Double-density - adjective used to describe 
disks when recorded using a special technique 
which, as the name suggests, doubles the amount 
of storage the disk can provide 


Dynamic memory — computer memory which requires 
constant recharging to retain its contents 


EPROM - stands for Erasable Programmable Read 
Only Memory, a device which contains computer 
information in a semi-permanent form, demanding 
sustained exposure to ultra-violet Light to 
erase its contents 


Error messages — information from the computer 
to the user, sometimes consisting only of 
numbers or a few letters, but generally of a 
phrase (such as 'Out of memory') which points 
out a programming or operational error’ which 
has caused the computer to halt program 
execution 


Field -— A collection of characters which form a 
distinct group, such as an indentifying code, a 
name or a date; a field is generally part of a 
record 


File - A group of related records which are 
processed together, such as an inventory file 
or a student file 


Firmware — The solid components of a computer 
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system are often called the '‘'hardware', the 
programs, in machine-readable form on disk or 
cassette, are called the 'software', and 
programs which are hardwired into a_ circuit, 
are called 'firmware'. Firmware can be altered, 
to a Limited extent, by software in some 
circumstances 


Flag -— this is an indicator within a program, 
with the 'state of the flag' (i.e. the value it 
holds) giving information regarding a 


particular condition 
Floppy disk — see disk 


Flowchart — this is a written Layout of program 
structure and flow, using various shapes, such 
as a rectangle with sloping sides for a 
computer action, anda diamond for a computer 
decision. A flowchart is generally written 
before any Lines of program are entered into 
the computer 


FORTRAN -—- a high Level computer’ Language, 
generally used for scientific work (from 
FORmu la TRANsLation) 


Gate - a computer ‘component! which’ makes 
decisions, allowing the circuit to flow in one 
direction or another, depending on the 
conditions to be satisfied 


GIGO - acronym for ‘Garbage In Garbage Out', 
suggesting that if rubbish or wrong data is fed 
into a computer, the result of its processing 
of such data (the output) must also be rubbish 


128 


Global — a set of conditions which effects’ the 
entire program is called 'global', as opposed 
to ‘Local! 


Graphics -— a term for any output of computer 
which is not alphanumeric, or symbolic 


Hard copy - information dumped to paper by a 
printer 


Hardware — the solid parts of the computer (see 
'software' and 'firmware') 


Hexadecimal —- a counting system often used by 
machine code programmers because it is closely 
related to the number storage methods used by 
computers, based on the number 16 as opposed to 
our ‘ordinary’ number system which is based on 
10) 


Hex pad - a _ keyboard, somewhat like a 
calculator, which is used for direct entry of 
hexadecimal numbers 


High-level langauges - programming’ Languages 
which are close to English. Low-Level Languages 
are closer to those which the computer 
understands. Because high-level Languages have 
to be compiled into a form which the computer 
can understand before they are processed, high- 
Level Languages run more slowly than do their 
Low-level counterparts 


Input - any information which is fed into a 
program during execution 
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I/O - stands for Input/Output port, a device 
the computer uses to communicate with the 
outside world 


Instruction — an element of programming code, 
which tells the computer to carry out a 
specific task. An instruction in assembler 
Language, for example, is ADD which (as you've 
probably guessed) tells the computer to carry 
out an addition 


Interpreter — converts the high-level ('human- 
understandable') program into a form which the 
computer can understand 


Joystick - an analogue device which feeds 
Signal into a computer which is related to the 
position which the joystick is occupying; 
generally used in games programs 


Kilobyte - the unit of language measurement; 
one kilobyte (generally abbreviated as_ K) 
equals 1024 bytes 


Line printer - a printer which prints a 
complete line of characters at one time 


Low-Level language ~- a Language which is close 
to that used within the computer (see high- 
Level Language) 


Machine Language — the step below a_ Low-Level 
Language; the Language which the computer 
understands directly 


Memory - the device or devices used by a 
computer to hold information and programs being 
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currently processed, and for the instruction 
set fixed within a computer which tells it how 
to carry out the demands of the program. There 
are basically two types of memory (see RAM and 
ROM) 


Microprocessor -— the 'chip' which Lies at’ the 
heart of your computer. This does the 
'thinking' 


Modem — stands for MOduLlator/DEModulator, and 
is a device which allows one computer’ to 
communicate with another via the telephone 


Monitor — (a) a dedicated television-screen for 
use aS a computer display unit, contains no 
tuning apparatus; (b) the information within a 
computer which enables it to understand and 
execute program instructions 


Motherboard — a unit, generally external, which 
has slots to allow’ additional 'boards' 
(circuits) to be plugged into the computer’ to 
provide facilities (such as _ high-resolution 
graphics, or 'robot control') which are not 
provided with the standard machine 


Mouse — a control unit, slightly smaller than a 
box of cigarettes, which is rolled over’ the 
desk, moving an on-screen cursor in parallel to 
select options and make decisions within a 
program. 'Mouses' work either by sensing the 
action of their wheels, or by reading a grid 
pattern on the surface upon which they are 
moved 


Network - a group of computers working in 
tandem 
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Numeric pad — a device primarily for entering 
numeric information into a computer, similar to 
a calculator 


Octal - a numbering system based on eight 
(using the digits 0, 1, 2, 3, 4, 5, 6 and 7) 


On-Line - device which is under the direct 
control of the computer 


Operating system - this is the ‘big boss' 
program or series of programs’ within the 
computer which controls the computer's 
operation, doing such things as calling up 
routines when they are needed and assigning 
prioritories 


Output - any data produced by the computer 
while it is processing, whether this data is 
displayed on the screen or dumped to _ the 
printer, or is used internally . 


Pascal - a high level Language, developed in 
the Late 1960s by Niklaus Wirth, which 
encourages disciplined, structured programming 


Port —- an output or input ‘hole’ in_ the 
computer, through which data is transferred 


Program - the series of instructions which’ the 
computer follows to carry out a predetermined 
task 


PILOT - a high Level Language, generally used 
to develop computer programs for education 


RAM - stands for Random Access Memory, and is 
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the memory on board the computer which holds 
the current program. The contents of RAM can 
be changed, while the contents of ROM (Read 
Only Memory) cannot be changed under software 
control 


Real-time - when a computer event is 
progressing in Line with time in the ‘real 
world', the event is said to be occurring in 
real time. An example would be a program which 
showed the development of a colony of bacteria 
which developed at the same rate that such a 
real colony would develop. Many games, which 
require reactions in real time, have been 
developed. Most ‘arcade action' programs occur 
in real time 


Refresh — The contents of dynamic memories (see 
memory) must receive periodic bursts of power 
in order for them to maintain their contents. 
The signal which ‘reminds! the memory of its 
contents is called the refresh signal 


Register — a Location in computer memory which 
holds data 


Reset - a signal which returns the computer to 
the point it was in when first turned on 


ROM — see RAM 

RS-232 - a standard serial interface (defined 
by the Electronic Industries Association) 
which connects a modem and associated terminal 


equipment to a computer 


S-100 bus — this is also a standard interface 
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(see RS-232) made up of 100 parallel common 
communication Lines which are used to’ connect 
circuit boards within micro-computers 


SNOBOL - a high Level Language, developed by 
Bell Laboratories, which uses pattern 
recognition and string manipulation 


Software -— the program which the computer 
follows (see firmware) 


Stack - the end point of a series of events 
which are accessed on a last in, first out 
basis 


Subroutine — a block of code, or program, which 
is called up a number of times within = another 
program 


Syntax — as in human Languages, the syntax is 
the structure rules which govern the use of a 
computer Language 


systems software — sections of code which carry 
out administrative tasks, or assist with’ the 
writing of other programs, but which are not 
actually used to carry out the computer's final 
task 


Thermal printer - a device which prints’ the 
output from the computer on heat-sensitive 
paper 


Time-sharing - this term is used to refer to a 


Large number of users, on independent 
terminals, making use of a single computer, 
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which divides its time between the users in 
such a way that each of them appears to have 
the 'full attention' of the computer 


Turnkey system — a computer system (generally 
for business use) which is ready to run_ when 
delivered, needing only the ‘turn of a key' to 
get it working 


Volatile memory — a memory device which’ Loses 
its contents when the power supply is cut off 


Word processor - a dedicated computer (or a 
Computer operating a word processing program) 
which gives access  to-— an intelligent 
typewriter’ with a Large range of correction 
and adjustment features 


135 


Now that you've mastered simple BASIC 
programming on your Dick Smith VZ200, what do 
you do next? 


The answer Lies in this book. Tim Hartnell, the 
co-ordinator of the VZ200 Users' Club, and 
co-author of the book GETTING STARTED WITH YOUR 
VZ200, turns his attention to a number of 
fascinating areas of computer programming, 
inc Luding: 


THE SECRET OF ANIMATION AND MOVING 
GRAPHICS 


HOW TO USE MODE 1 
MAKING MUSIC 

PEEK AND POKE 
As well as the 'Lessons', there are fifteen or 
So great games programs you're sure to enjoy 
running, including ROMTHELLO, V-WING SPACE 
BATTLE, CHECKERS, LAS VEGAS HIGH and _ the 

prehistoric game, MESOZOIC ATTACK. 


This book is the key to moving beyond simple 
BASIC programming with your Dick Smith VZ200. 


